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ABSTRACT 


The function of the OMC11 diagnostics is to verify that the 
option operates according to specifications. The diagnostics 
verfiy that there are no malfunctions and the all operations 
of the DMC11 are correct in its environment. 


Parameters must be set up to alert the diagnostics to the 
DMC11 apes pre’. hese parameters are contained in the 
STATUS TABLE and are generated in two ways: 1) Manual 
Input - the operator answers questions. 2) Autosizing - the 
program determines the parameters automatically. 


DZDMG tests the DMC11-AR micro-processor (MB200-YA) with low 
speed crom, or the KMC11 micro-processor (MBCO4). It performs 
ump tests on the eierenprecaseot verifies the contro] ROM of 
he MB8200-YA, and tests the CRAM and other unique functions of 
the MB2O4. {tf a DMC1I-AR (MB200-YA) and line unit (M8201 ) 
are present, ree ryan log tests are performed. These tests 
are s pees if a KMC (M8209) or no line-unit is present. The 
best test is with a jine-unit installed. DZDMG can be used as 
a Heat Test Diagnostic by Manufacturing. 


Currently there are four off line diagnostics that are to be 
run in sequence to insure that if'an error should occur it 
will be detected at an early stage. 


NOTE: Additional diagnostics may be added in the future. 
The four diagnostics are: 


1. OZDMC [REV] Basic W/R and Micro-processor tests 

2. DZDME [REV] DDCMP Line unit tests 

3. DZDMF [REV] BITSTUFF Line unit tests 

3. DZDMG [REV] Low speed jump and Free-running tests (Heat 

test tape) NOTE: DZDMG fS RUN ONLY ON A DMCII-AR (Ma200-YA). 
[REV] oige speed jump and areencene ing tests (Heat 

test tape) NOTE: DZDMH 16 RUN-ONLY ON A DMC11-AL tMB200-YB). 


REQUIREMENTS 
EQUIPMENT 
Pos POP11 famiiy CPU (except an LSI-11) with minimum 8k memory 


ASK 33 (or equilivalest) 
(M 350-1A) or an KMCI1-A (M8204) with a DMCLI-DA or a 
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STORAGE 


Br earen will use all 8K of memory gx5egt where ABL and 
BOOTSTRAP LOADER reside. Locations 1500 thru 1640; contain 
the "STATUS TABLE” information which 1s generated at start of 
diagnostics by manual input (questions) or automatically 
(au onstpiag? This area is an overlay area and should not be 
altered by the operator. 


LOADING PROCEEDURE 

METHOD 

All pre rams are in absolute format and are loaded using the 
ABSOLUTE LOADER. NOTE: 1f the diagnostics are on a media such 
as DISK ,MAGTAPE,DECTAPE, or CASSETTE: follow instructions 
for the monitor which has been provided on that specific 
media. 

ABSOLUTE LOADER starting address #500 


MEMORY # SIZE 


4k 17 
Sk 37 
12k 57 
l&k 77 
20k 117 
24k 137 
28k 1$7 


Place address of ABS loader into switch register. 
(also place “HALT’ SW up) 


Depress "LOAD ADDRESS’ key on console and release. 


Depress “START KEY’ on conscle and release (program should now 
be loading inte CPU) 


_—_ -——- ——— ee ee ee eee + 


STARTING PROCEEDURE 


a. Set switch register to 000200 

b. Reprass *LOAD ADDRESS’ key and release 

c. Set SWR to zero for "AUTO SIZING’ or SWR bitO=1 for manual 
~ (questions) or SWR bit7=1 to use existing parameters 
setup by a previous start or a previously run OMC11 
diagnostic. 

d. Depress *START KEY’ and release. The program will type 
Maindec Name and pregcee name (if this was the first start 
up of the program) ard also the following: 


MAP OF DMC11 STATUS 


PC CSR STAT1 STAT2 STAT2 


901500 160010 145319 177777 900000 
00:510 160020 145320 177777 000000 


The program will type 'R’ and proceed to run the diagnostic. 
The above is only an example. This would indicate the status 
table starting at add. iSOQO in the program. In this example 
the table contains the information and status of two DMC11°S. 
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
Ee. DONE. For information of status table see section 8.4 for 
é i . ; 


If the diagnostic was started with SWOO=1 indicating manual 
parameter input then the following shows an example of the 
questions asked and some example answers: 


HOW MANY DMC11’°S TO BE TESTED? 


01 

CSR ADDRESS? 160010 

VECTOR ADDRESS?310 

BR PRIORITY LEVEL? (4,5,6,7)7S 

DOES MJCRO-PROCESSOR HAVE GRAM? CY OR NIN 

WHICH LINE UNIT? IF NONE TYPE “N", IF M8201 TYPE "1", IF 
‘2 


M8202 TYPE 

IS THE LOOP BACK CONNECTOR ON?Y 
SWITCH PAC#1 (DDCMP LINE®)?377 
SWITCH PAC#e (BM873 BOOT ADD) 7377 


coliouius the questions the status map is printed out as 
described above, the information in the map reflects the 
answers to the questions. If _the diagnostic was started with 
SWOO=0 and SWO7=0 (AUTO-SIZING) then no guestions are asked 
and only the status-map is printed out. { AUTO-SIZING is 
used the. status information must be verified to be correct 
(match the hardware). if it does not match the hardware the 
etogneetie must be restarted with SWOO=1 and the questions 
enswered. 
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Page S 
CONTROL SWITCH SETTINGS 
SW1S Set: Halt on error 
SW 14 Set: Loop on current. test 
SW 13 Set: Inhibit error print out 
SW le Set: eng ho outvabell on error. 
SWil Set: Inhibit iterations. (quick pass) 
SW 10 Set: Escape to next test on error 
SW O09 Set: Loop with current data 
SW O8 Set: Catch error and loop on it 
SW O7 Set: Use previous status table. 
SW O06 Set: Halt in ROMCLK routine before clocking 


micro-processor 
SW OS Set: Reserved 
SW O4 Set: Reserved 
SW O03 Set: Reselect DMC11’s desired active 
SW O2 Sei: Lock on selected test ‘ 
SW Ol Set: Restart program at selected test 
: Build new status table from questions. (If SWO7=0 
and SWOO=0 a new status table is built by 
auto-sizing) 


Switch C6 and O8-iS are dynamic and can be changed as needed 
while the diagnostic is running. Switches O0-03 and switch 07 
are erat iss and are used only On starting or restarting the 
diagnostic. 
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SWITCH REGISTER OPTIONS (at start up) 


SW Ol 


SW Oe 


SW C3 


oowr 


RESTART PROGRAM AT SELECTED TEST. It is strongly 
suggested that at least one pass has been made before 
trying to select a test, the reason being is that the 
rogram has to clear areas and set up parameters. 
hen this switch is used the diagnostic will ask TEST 

NO.? Answer by typing the number of the test desired 
pas berrsge return to Begin execution at the selected 
est. 


LOCK ON SELECTED TEST, This switch when used with 
SWOl will cause the program to constantly loop on the 
selected test. Hitting any key on the Console will 
let it advance to the next test and losp until a key 
is hit again. If SWOe=0 when SWOl is used. The 
program will begin at the selected test and continue 
normal operations. 


RESELECT DMC11°S DESIRED ACTIVE. Please note that a 
message is typed out for setting the switch register 


0,01,02,03 will be set in loc 

DMACTV’ from the switch register. Using this 
switch{SWOO) alters that location;therefore if four 
DMCl1ls are in the system ##*D0 NOT#x# set switchs 
greater than SW O03 in the up position. this would be 
a fatal error. do not select more active DMClls_ than 
there is information on in the status table. 


Load address 200 
Start with SW O0=1 
Program will type message 
Set a switch for each DMC desired active. 
EXAMPLE: If you have 4 DMC’s but sels want -to 
run the first and the last set SWR bits O and 
3 = 1. PRESS CONTINUE 

E: Number (IF VALIO) will be ir data lights 


(excluding 11/05) 
Set with any other switch settings desired. 
PRESS CONTIRUE. 
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DYNAMIC SWITCHES 


ERROR SWITCHES 

SW 12 Delete print out/bell cn error. 

SW 13 Delete error printout. 
SW135 Halt on the error. 
SW O08 Goto beginging of the testion erreri. 
SW 10 Goto next testfon error). 


SCOPE SWITCHES 


1. SWwO6 Halt in ROMCLK routine before clocking 
micro-processor instruction. This allows the 
poaratie to scope a micro-processor instruction in 
static state before it is clocked. Hit 
continue to resume running. 
&. SWO9 Cif enabled by *SCOP1"> on an error; If an *#’ 18 
rinted in front of the test no. lex. #*TEST NO. 
O } SWOS is incorporated in that test and 
therefore SWO9 is usually the best switch for the 
scope loop (SHi4=0 Swld=6, Sw0d=1, Sw05=9). If 
not enabeled; and there is © HARD error 
SWOS is best. (SW14=1,0, SwW10=0 


ita st rei ttl 
w 
= 
i 
u 


Poesogeeys. 


SW 09=0, biie-i- ee interai ttent errors; SWi4=i 
wil] 1eop on test reguardles error or not 
error. (SW14=1, Sule 0, swon= 0, *euoes! ,0) 


3. SW1l Inhibit interations. 
4. SW14 Locp on current test. 
ST 


TARTING ADDRESS 


ing address is at OOO20C there are no other ptorting 
ses for the DMC11 diagnostics. (See Section 4.0) 


NOTE: if address eae is non-zero the program assumes it 
1s under ACT1 or XXDP contro and will act 
according] ties an available OMC11’s we tested the 
program will return to 'XXDP’ or ‘ACT-1 


OPERATING PROCEDURE 
When program is ipttietis started messages as described in 


tectian 4.0 will be printed, and program will begin running 
the diagnostic 
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PROGRAM AND/OR OPERATOR ACTION 
The typical approach should be 


l Halt on error (via SW 15=1) when ever an error occurs. 
é. Clear SW 1S. P 

J. Set SW 14: (loop on this test) 

Fe Set SW 13: ‘(inhibit error print out) 


The TEST NUMBER and PC will be typed out and possibily ar 
error message (this depends on the test) to give the operator 
an idea as tO the source of the problem. If it is necessar 

to know more information tonserniag the error report; LOOK I! 
THE LISTING for that TEST NUMBER which was typed gut and then 
NOTE THE PC of thE ERROR REPORT this way the EXACT FUNCTION of 
the test CAN BE DETERMINED. 


ERRORS 


As described previously there will always be a TEST NUMBER and 

PC typed cut at the time of an error prey tstas SW 13=0 and SW 

le=o in most cases additional information will be supplied 

ie the the error message to give the operator an indication of 
@ error. 


ERROR RECOVERY 


If for some reason the- DMC11 should -*HANG THE BUS’ (gain 
control of bus so that console manual functions are inhibited) 
an init or power down/up is necessary for operator to regain 
contro] of cpu. If this should begpee) look in location 
TSTNG’ (address 1226)for the number cf the test that was 
running at the time of the catastrophic error. In this way 
the operator will have an idea as to what the DMC11 was doing 
at the time of the error. 


RESTRICTIONS 
STARTING RESTRICTIONS 


See section 4. (PLEASE) 

Status table should be verified reguardless of how program was 
started. Also 1% is important to use this isting along with 
the information printed on the TTY te completly iSolate 
protiems. ‘ 
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OPERATING RESTRICTIONS 
t 


The first time a DMC11 diagnostic is loaded into core and run 
the STATUS TABLE must be set up. This 18 done by manual + 
(SWOO=1) or by autosizing (SWUO0=O and SWO7=0). Thereafter 
however the status table need not be setup by subsequent 


arts or even loading the next DMC diagnostic because ithe. 


rest 
STATUS TABLE is over layed. The currant parameters in the 
STATUS TABLE are used when SWO7=1 on start up. 


HARDWARE CONFIGURATION RESTRICTIONS 


OMC1LI(MB200)- Jumper Wl must be in, and switch 7 of 76 must 
be in the OFF position. 


KMC(MB204)- Jumper Wl must be in. 


LINE UNIT{(M8201)- Jumpers Wil, We, and WH must be IN. Jumpers 
Boar ene must be OUT. SWE of E26 must be ir the ON 


LINE UNIT (MB8202)- Jumper Wil must be in. SWS of E26 must be 
in the OFF positicn. 


MISCELLANEOUS 
EXECUTION TIME 


All DMC11 device diagnostics will give an "END PASS” message 
cprevicine no errors and swi2=0) within Smins. This is 
assuming SWii=1 (DELETE ITERATIONS) is set to give ihe fastest 
possible execution. The actual execution time depends greatiy 
on phe POPil CPU configuration and the amount of memory in the 
system. ret 


PASS COMPLETE 
NOTE: EVERY time the program is started; ibe 


tests will rur 

as if SW1ll (delete iterations) was u =1) This is to 
"VERIFY NO HARD ERRORS’ as soon as possible. Therefore the 
irst pass -EACH TIME PROGRAM IS STARTED- will be a ‘QUICK 


f 

PASS’ uhtil all DMCll’s in system are tested. When the 
diagnostic has completed a pass the following is an example of 
the print out to be expected. 


END PASS DZDMG CSR: 175000 VEC: 0300 PASSES: 9000001 
ERRORS: 000000 


NCTE: The pass count and error counts are cummulitive for 
¢ach DMC11 that is running, and are set to zero only 
when the diagnostic is started. Therefore after an 
overnight run for example, the total passes and errors 
for gach DMC11 since the diagnostic was started are 
reflected in PASSES: and ERRORS:. 


Bie ats SPRL eee ea ae es 
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KEY LOCATIONS 


RETURN (1214) Contains the address where program will return 
vs when iteration count is reached or if locp on 
test is asserted. 


NEXT (1216) Contains the address of the next test to be 


peformed. 

TSTND (1226) Contains the number of the test now being 
peformed. 

RUN (1316) The ei} in "RUN’ always points to DMC 11 


tested. EXAMPLE! (RUN) 
£305*Sna4o0088 180000 Means that ODMC11 no.0& 
is the DMC11 now running. 


DMCROO-DMCR17 

OmMSTOO-DMST17 

(1500)-( 1640) 
These locations contain the information needed 
to test + ee to 16 (decimal) DMClls se wont ies 
they contai the CSR,VECTOR an aris 
conterning the configuration of each onciie 


DMACTY (1306) Each bit + po is this jesetiee indicates that 


the associ DMC11 will be tested in turn. 
EXAMPLE: (EnACTY) Na ec IeTE bana areas 
that DMC11 n 00,01,02,03,04 will be tested. 


EXAMPLE:  (DMACTV) Do >>67h990000000010001 Means 
that DMC11 no. 00,04 will be tested. 


Ghose (1404) yea tates the CSR of the current OMC11 under 
est. 


"STATUS TABLE’ (1500-1640) 


The table is filled by AUTO SIZING or by the manual parameter 
input tgpes tiene: as described areviousty. Also if desired by 
user; the locations may be altered by hind (toggled in) to 
suit’ the specific configuration. 


The exam le status ney st phews below contains information for 
two DMC11°S. the tab can contain up to 16 OMC11’S. 
Foi toutag the map is a Rt of the bits for each map 
entry 


MAP OF DMC11 STATUS 


we ee em ee RH em He He KH HH eK 


PC CSR STAT1 STAaT2 STATS 


60010 145319 177777 000000 
60020 016320 900000 d00000 


oo 
oo 
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Each = Bye entr pentotes 4 words which contain the status 
informatio Vor OMCil. The i shows where in core neers 
the first of the 4 ‘ok is. In_the example above the firs 

DMC’S status is in sopations, 1500, 1502, 1504, and 1506. The 
second DMC status is located at 15{0, 15 Sie, 181 4, and 1516. 

If, informaticn contained in each 4 word om is defined as 
ollows: 


CSR: Contains DMC11 CSR address 
STATI: 


I 
S AN M8202 
BR PRIORITY LEVEL 


YTE IS SWITCH PAC#1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#e (BM873 BOOT ADD) 


BITO=1 PERFORM FREE RUNNING TESTS ON KMC 
(must be set manually. SEE TEST 50) 


MWWtCUT 
Ss WOr-O0O-—-O 
occa 
—Zz Oo 
Ser) 
4 


I 
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METHOD OF AUTO SIZING 
FINDING THE CONTROL STATUS REGISTER. 


The auto-sizing routine finds a DMC11 as follows: It starts 
at address 160800 and tests all address in increments of 10 up 
to and including address 167760. If the address does not time 
out, the ej sesing is done, the first CROM address is written 
to a 125252 then it is read back. If it contains a -1 or 
125252 or 63220 a DMC11 or KMC11 has been found, if not, the 
address is updated by 10 and the search continues; A -1 
indicates a DMC11 with no CROM, 2 125252 jodica tes a KMC11 
with CRAM and a 63220 indicates a OMC11] with the DD@MP CROM. 
Further tests are performed at this point to determine which 
line unit, if any, is installed, if a loop-back connector is 
installed and various switch gett ings on the line unit. TH 
IS WHY THE STATUS TABLE MUST BE VERIFIED BY THE USER AND IF 
ANY OF THE INFORMATION DOES NOT AGREE WITH THE HARDWARE THE 
DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS MUST BE 
ANSWERED. All DMC1l1l*’s in the system will be found by the 
auto-sizer. If it does not find a DMC11 the diagnostic must 
be restarted and the questions answered. 


FINDING THE VECTOR AND BR LEVEL 


The vector area (address 300-776) is filled. with the 
instruction IOT and ‘°.42° (next address). The processor 
status is started at 7 and the DMC is pregrennes to interrupt. 
The PS is lowered by 1 until the DMU interrupts, a oeies is 
made and if no interupt occures at PS level 3 (because of a 
bad DMC11) the program assumes vector address 300 at BR level 
S and the problem should be fized in the diagnostic. Once the 
problem is fized; the program should be re-setup again to get 
correct vector. If an interupt occured; the address to which 
the DMC11 interupted to is picked up and reported as the 
vector. NOTE: if the vector reported is not the vector set 
up by you; there is a problem and AUTO SIZING should net be 
one. 


SOFTWARE SWITCH REGISTER 


If the diagnostic is rum on an 11/04 or other CPU without a 
switch register then a software switch fogiecer is used to 
allow user the same switch options as described previously. 
If the hardware switch register does not exist cr 1f one does 
and it contains all ones (177777) this software switch 
register is used. ; 


Control: 


To obtain control at any allowable time during execution of 
the diagnostic the operator types a CTRL é on the console 
terminal keyboard. As soon as the CTRL G is recognized, by 
the diagnostic, the following message will be displayed: | 





NO1 


Page 13 


SWR=XXXXXX NEW? 


Where XXXXXX is the current contents of the software switch 
register in octal. The software control routine wil'l then 
await operator action. At which time the sper ever is required 
to type one or more of the legal characters: 1) 0-7, 
{eed(<LF>), 3) carriage return{<CR>), or 4) control-U 
(CTRL U). No theck is made for legality. If the input 
character is not a <LF>, <CR>, or CTRL U it is assumed to be 
an octal digit. 

tal digit 


To change the contents of the SSR the operator eines tupes 
the new desired value in octal - leading zeros need not be 
typed. And terminates the input string with a *<CR> or <LF> 
Frcesetag on the program action desired as described below. 

value will be truncated to the last & digits typed. 
At least one digit must be typed on any given input string 
prior to the terminator before a change to the SSR will occur. 


When the input string is terminated with a (CR) the diagnostic 
will continue execution from the point at whicn it was 
interrupted. If a <CR> is the only thing typed the program 
will continue without changing the SSR. The «L.F> differs from 
the <CR> by restarting the program as if it were restarted at 
address 200. 


If a CTRL U is typed at.any point in the input string prior to 
the terminator the in ut value will be disregarded and the 
srompt displayed (SWR = XXXXXX NEW?). 


To set the SSR for the starting switches, first load the 
diagnostic, then hit CTRL G, then start the diagnostic. 
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REEEARRRAAREERRREREERRRER TEST | RRRKREERRERRRAARER EER REESE 
TEST OF BR RIGHT SHIFT 

VERIFY THAT A DEST OF BR RSH (011) OF A MICR ‘INSTRUCTION 
SHIFTS THE RESULTING BR DATA RIGHT ONCE. 


poqueceevasvereereneuccee™ TEST 2 RRHRERHRAREREE SAAR EKER REELS 
IOP CRAM WRITE/READ T 
FLOAT A 1 THROUGH PACH Ran LOCATION 


RELEREREAALARRERRALEREAEEE TEST J RRRRERERRRRRERAEE AER REER EES 
IOP CRAM WRITE/READ TEST 
FLOAT A O THROUGH EACH CRAM LOCATION 


SESE EAE EEE AIEEE EEA EEE TEST 4 sR RR EE 
IOP_CRAM DUAL ADDRESSING TEST 

WRITE EACH ADDRESS INTO ITSELF, READ EACH 

ADDRESS TO VERIFY CORRECT ADDRESSING 


EEKEREERSRRERRRERRRRRERREE TEST S RHRRRRKERKKRRREAE REE REE REESE 


IOP CRAM READ TE 
THIS TEST WRITES THE CRAM WITH THE CROM MICRO-CODE MAP 
THEN READS IT BACK AND COMPARES EACH ADDRESS WITH THE 
DUPLICATE OF THE CROM MICRO-CODE. 


RELKELERREEERRRRRRRREREREE TEST 6 SERRE RRRERERERARARREARALE LE 
IOP MAIN MEMORY TEST 
FLOAT A 1 THROUGH ALL MAIN MEMORY LOCATIONS 


RELHELHRLRAKRARERSKREREEEE TEST 7 2RRRE RHEE RAL RRR H AER HALE EEES 
IOP MAIN MEMORY TEST 
FLOAT A O THROUGH ALL MAIN MEMORY LOCATIONS 


LEARERAERALEERREERERRRREESE TEST 10 RRR E RRA RAA KARR RREERERAER 
IOP MAIN MEMORY DUAL ADDRESSING TEST 

LOAD EACH MEMORY LOCATION WITH ITS OWN ADDRESS 

READ BACK EACH LOCATION TO VERIFY CORRECT ADDRESSING 


“2 popes TEST 1] RRRRRRERRERERARAAEEEER EEE RE 
PERFORM DUAL ADDRESSING TEST 
USING MAR AUTO-INC FEATURE 


gre TEST 12 ARHRRHRERERRERAEALE EERE EEE 
IOP (CRAM) ODT BITS T 

LOAD MAR WITH A O INC MAR UNTIL IT gtta £2000 TIMES) 
VERIFY THAT IBUS# 10 BI fe IS SET ONLY WHEN MAR BIT 8 IS A ONE 
AND THAT IBUS* 10 BITE IS SET ON MAR OVERFLOW: 2000) 
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224e 
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a TEST 13 HEHKHHRRERERRHRKEE RARER E KEES 
THIS TEST READS EACH ROM LOCATION AND rt 

IT TO A SOFTWARE DUPLICATE OF THE CROM. THIS TEST 

ALSO TESTS THE JUMP(I) MICRO-PROCESSOR’ INSTRUCTION. 


RHKHRRELRHASRAKHARKARREKES TEST 14 SHRR RARER RRS RE RHEL HEEL E ELE 
CROM TEST OF JUMP(I) NEVER MICRO-PROCESSOR INSTRUCTION. 
PERFORM THE JUMP INSTRUCTION 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


RELRERARLARRRRERRRRERRRERE TEST 15 RRR RRRRE RRR R REE RRERREA ER ER 
CROM TEST OF JUMP(I) padh, MICRO-PROCESSOR INSTRUCTION. 
PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


SREHARERRARRRRRRRRRRRRRRHRE TEST 16 Re RRRRRRRR RRA RA EAR R EERE REESE 
CROM TEST " pe ON C BIT SET MICRO-PROCESSOR INSTRUCTION. 
SET THE C B PERFORM THE JUMP INSTRUCTION 

VERIFY THE SUKP BY READING THE CONTENTS OF THE NEW ROM PC 


RHLARARARERERRRRRRRRRERERES TEST 17 SRR RR RRR R REAR KERR RRR E REESE 
CROM TEST r+ JUMP(I) ON 2 BIT SET MICRO-PROCESSOR INSTRUCTION. 
SET THE Z BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


RELARAAARAAERASERERERREEEE TEST OD RRR RHRRARAE KALE REEL EERE 
CROM TEST OF JUMP(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION. 
SET THE BRO BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP’ BY READING THE CONTENTS OF THe NEW ROM PC 


LELERERERRALELERRERERERERE TEST 2] SERRA RRRRRERRA EEE R LAK RE REESE 
0 SE; MICRO-PROCESSOR INSTRUCTION. 

SET BIT, PERFORM THE FUME INSTRUCTION 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


RELEREERARAAAEREREREREREEE TEST OC SHRRHEHRHEREAEEEEREREREERER 
CROM TEST OF JUMP(I) ON BRY SET he ma INSTRUCTION. 
SET THE BRY BIT, PERFORM THE JUMP INSTRUCTI 

VERIFY THE JUMP’BY READING THE CONTENTS OF THe NEW ROM PC 


SHLRERARALLARASASRERREREREE TEST OF RHRRRHERRRERERERELALL LARA EE 
CROM TEST OF JUMP(I) oe, BR7 SET MICRO-PROCESSOR INSTRUCTION. 
SET THE BR7 BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP’ BY READING THE CONTENTS OF THE NEW ROM PC 


RELEEEEEEERARLAREERERERERE TEST 24 RERKRRRHEEHRERRRAREAEEE EE ES 
SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR a BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE?. 
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RERRRRLLRERALERREREREREEEE TEST OS SRRRRE ERE RER EER EL EER EREEH 

CROM TEST OF JUMP(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 

CLEAR THE 2 tae ae BtD te THE Tf INSTRUCTION, 


EADING 
THE CONTENTS OF THE. NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


RHEKRKHLHERERESSKKAKARARRKRRER TEST OG SHREK HREM RH RRR SK HAAR ELE E EES 

CROM TEST OF JUMP(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION. , 
CLEAR THE BRO BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


EHHREERARARRARARLRERRERKRERE TEST O7 2RRRRRRRHRRERARA ELAR EE AA ERES 
CROM TEST OF JUMP(I) ON BR1 SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE BR1 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READ 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


RERKEKHAAAAALARRARRRERERES TEST QO RX RRRRRRRH RRR RERE RA LEH RELEASE 
CROM TEST OF JUMP(I) ON BRY SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE BRY BIT, PERFORM THE SUF ay NST en 
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LELRREALRRRARERERERERELEE TEST 3] SRHHRRRRRERAH ERR R ALLER REEL 
CROM TEST OF JUMP(I) ON BR7 SET fgg a a Ses INSTRUCTION. 
CLEAR THE BR7 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READIN 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


RERRERAALARELEERRRARERERES TEST QO RERRRRRHEEERREEEEREREL ER EES 
os it OF JUMP(T) ee en INSTRUCTION. 


ERFORM THE JUMP INSTR 
VERIFY THE JUMP NOT on BY CLOCKING THE aD A 
IN THE LOCATION IT IS AT. INSTRUCTION L 


0A 
BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT 
THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT 

THEN PORT4 CONTAINS A 37 


RRALERERALAERARERERRRREEEE TEST G3 SH RRRRERRRRAERE EERE LER ER ES 
CRAM TEST OF JUMP(I) ALWAYS OPE SER INSTRUCTION. 
PERFORM THE JUMP INSTRUCTION 


0 SD 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL ° 
THEN PORT4 WILL CONTAIN 'A 37 


| DZONE SES DECDOC VER 00.04% O7-MAR-77 if:05 FA 


3C41 SERLAALERERARARRRRRRRRRERE TEST JY RRR RAERAA RRR ERHEEAEAR ERE SEES 
cnet ig eae y ON C BIT SET a eee INSTRUCTION. 


R 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL ° 
THEN PORT4Y WILL CONTAIN'A 37 


3103 SAR EER ERR TEST 3S RRR RRREHE REE EA RARER LESS 
CRAM TEST e eg ON_Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
SET THE 2 B a ORM THE JUMP INSTRUCTION 
VERIFY rhe Jute’ Dt wr ie LOCKING THE INSRUCTION 


Pp 
THE JuriP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL ’ 
THEN PORT4 WILL CONTAIN A 37 


3i65 ELLER REAR ALE RERREEEELE TEST 3 HME HEHEHE REE AREER EE EEE EEE 
CRAM TEST OF tht I) ON BRO SET tm ee al INSTRUCTION. 
SET THE BRO BIT, PERFORM THE JUMP INSTRUCTION 
VERIFY THE JUMP’ DID se BY ered 1 INSRUCTION 


THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL ° 
THEN PORT4 WILL CONTAIN’A 37 


3227 ERELALLLALALERERERRRRRREES TEST 37 RRRRERERRRRRER SEALE LAE EELS 
CRAM TEST OF JUMP(I) ON BRI SET MICRO-PROCESSOF INSTRUCTION. 


BR I : 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
THEN PORT4Y WILL CONTAIN A 37 


2289 pesatesnesencqnesenstenees TEST 4D SHRRRKARAAEEERERAAEE REELED 
CRAM TEST OF JUMP(I) ON BRY SET MICRO-PROCESSOR INSTRUCTION. 
SET THE BRY BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP’ DID occur & BY ag ee Bor THE INSRUCTION 


BR DAT 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL ° 
THEN PORT4 WILL CONTAIN'A 37 
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3351 SEARKRAAASERRARRARAERREERS TEST 4] RR RRRRRRE RARER REE EERE LESS 
CRAM TEST OF JUMP‘(I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION. 
SET THE BR7 BIT, PERFORM THE JUMP INSTRUCTION 
VERIFY THE JUMP’DID OCCUR au CLOCKING THE INSRUCTION 
HE LOCATION AT. THIS INS T TH 


T : I 
ne BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT, 
THE JUMP_WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 

THEN PORTY WILL CONTAIN’A 37 


3413 REREARRREREAERERRREREREEEH TEST 42 RRRRREREERRRAERERELE EEE RE EE 
CRAM TEST OF JUMP(Z) ON C BIT SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE C BIT, PERFORM THE JUMP INSTRUCTION, 


S41E VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE a eh 
IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE- 
BR Wi T THE CRAM PC. A 


THE CRAM PC IS CORRECT. IF THE CRAM PC IS NOT RIGHT, 
THEN PORT4 CONTAINS A 37 


3475 REARERHRALARARLARAREREREEE TEST YS RERRRRHRHRREAAALE RARER REEEE 
CRAM TEST OF JUMP(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE 2 BIT, PERFORM THE JUMP INSTRUCTION, 
VERIFY THE JUMP’DID NOT OCCUR BY CLOCKING THE’ poe rae! oan 
IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 
T 8 BIT THE CRAM PC. AT 


THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
THEN PORTY CONTAINS A 37 


3537 LEAERERRAAAEERRERAREEREEEE TEST YY RRRRRREERERRRRREHREREEEERES 
CRAM TEST OF JUMP(I) ON BRO SET tg en Ee INSTRUCTION. 
CLEAR THE BRO BIT, PERFORM THE JUMP INSTRUCTION 
VERIFY THE JUMP DID NOT a ge, LOCKING 7. INSTRUCTION 


T 0 
THE CRAM PC IS CORRECT. IF THE CRAM PC IS NOT RIGHT, ; 
THEN PORTY CONTAINS A 37 “s 


3599 RELHKRRRLERRRRAEERERRREEES TEST 4S BERR RRRERE RRR SERRA REESE 
cron yo a ie ON +. SET Hee SS TeueT Ton INSTRUCTION. 


CLEAR T 1 PERFORM THE JUMP I 
VERIFY THE JUMP DID NOT OCCUR BY CLOCKING vi TSTRUCTION 
IN THE LOCATION IT IS AT. THIS INSTRUCTION L 

L 8 arts OF THE CR THT "Bo NT 


THE CRAM PC IS CORRECT IF THE CRAM PC IS NOT RIGHT, 
THEN PORT4Y CONTAINS A 37 
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HERRRRRERERRERRERERARRHERE TEST YE RERREERERAR AAA ERE RAR ERERE ES 
CRAM TEST OF JUMP(I) ON BRY SET Hee ONS TRURT Ton INSTRUCTION. 
CLEAR THE BRY BIT, PERFORM THE JUMP INSTRUCTION 
VERIFY THE JUMP DID NOT OCCUR BY CLOCKING A THE INSTRUCTION 

THE L ION INS OADS THE 


THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
THEN PORT4 CONTAINS A 37 


RLLAALAALRALHRLRRREREKHAKS TEST 47 eee eee RRS ERLE HERES HARES 
CRAM TEST OF ea ON og SET Hoe eTRrtion INSTRUCTION. 


H RUCTION 
VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 
IN THE LOCATION IT IS AT. THIS IN STRUCTION LOA OS THE 
BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
THE BR DATA IS MOVED TO PORTY. IF THIS DA 1f IS COPRECT 

THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 

THEN PORT4 CONTAINS A 37 


atch a pt pee at oe a tee SO RHEKKHRRRRREHRELA EERE ERASE 
FREE RUNNING FLAG MODE DATA TEST 

TRANSMIT A MESSAGE AND COR IFY THE RECEIVED DATA 

IF NO TURNAROUND CONNECTOR IS ON LINE UNIT LOOP IS SET. 


NLY_ON Wi 5 WISH TO PERFORM 
THESE FREE RUNNING TESTS ON A KMC (NORMALLY THE an RUNNING TESTS 
WILL FAIL ON A KMC, THE TIMER IS TOO FAST) THEN YOU MUST 

MANUALLY SET BITO “Oe STAT3 IN THE STATUS MAP. 


REREKRARRRRRESRRRRKARERAEREEE TEST 5] RERRRRRRE RRR RAERAA ELLER EKER 
T 


UN TES 
IN FREE RUNNING MODE SEND MESSAGE WITH NO RECEIVE 
BUFFER AVAILABLE, VERIFY THAT AN OVERRUN ERROR OCCURS 


12 - eeenee TEST SO RXHHHAREHERHSREAEKLE SEEKS EE 
IN FREE RUNNING MODE SEND A MESSAGE LONGER THAN THE RECEIVE 
BUFFER, VERIFY THAT A LOST DATA ERROR OCCURS. 


SLLKALAAERLEAHRRAERA KALE LEE TEST S3 RERHRKRAHALAARAAALAASLAREAES 
TRANSMIT NON-EXISTENT MEMORY TEST 

IN FREE RUNNING MODE. LOAD A TRANSMIT BA THAT WILL TIME OUT 
VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS 


RRLLKERERAERREREEEAERREEEE TEST SY £RRRHRRRAERRARREEERAEREER ES 
RECEIVE NON-EXISTENT MEMORY TEST 

IN FREE RUNNING MODE, LOAD A RECEIVE 8A THAT WILL TIME OUT 
VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS 


O7-MAR-77 16:05 


[0e 


CzoMeS SES DECDOC VER 00.9% O7-MAR-77 i€:CS PAGE Cs 


4169 HERRERA RAAAAAARHFRARRRERE TEST SS HHH RR AHHH RRR RERERARERE LESS 
PROCESSOR ERROR TEST " 
IN FREE RUNNING MODE, DO A BASE TRANSFER REQUEST AFTER 4 
BASE HAS BEEN SET uP; VERIFY THAT A PROCESSOR ERROR OCCURS. 


4204 SHARAERRERRELERRRRERREREEER TEST SE ReRERHRRRRERERERERAER ELL LES 
PROCESSOR ERROR TEST 
IN FREE RUNNING MODE DO A RGI WITH AN ILLEGAL 10 CODE 
VERIFY THAT & PROCESSOR ERROR OCCURS 


wiyS WF DUPLEX TesT TEST 57 HHEKKKKKKKRRKARKLELEERLERRES 
IN FREE RUNNING MODE, SET HALF DUPLEX AND L U LOOP 
SEND A MESSAGE AND VERIFY THAT THERE ARE NO DONES 


4288 RERLARERAARAAEERRRRRERELEE TEST 60 SHRRRERRRRAHEHEARERAREE ERE 
FREE RUNNING DATA TEST (INTERRUPT DRIVEN EXERCISE®) 
THIS TEST REPEATEDLY QUEUES UP ht ae BUFFERS AND 


= 
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ws 


IVE BA’S ARE_USED. DATA 
IS A BINARY COUNT PATTERN. THE RESUME FUNCTION IS CHECKED IN THIS T 


b+ b+ 


oe 


 C.W00 SCP UT Cur OO. 00 SO 01 Cou 029.000 SOU ££ Cou 


LOUCOTUPOUTUPUTULULUTULUTUD «oo + 9» 


fe 


(Pol £ to 


- SII OIC CI OI OD) 


J0e 
e7i 1006) O7=MAR-"7 16:52 PAGE @ PAGE: 0322 
MAR@F? i132) INTRODUCTION TO DMC11 DIAGNOSCTIC 
;®MRINDEC-11-DZO0MG-B _DMC11 REMOTE CROM, JUMP, AND FREE RUNNING TESTS 
; #COPYRIGHT 1976, DIGITAL EQUIPMENT CORP. , MAYNARD, MASS. 01754 
i STARTING aaa 
;LOAD PROGRAM 
;LOAD ADDRESS 000200 
;SWR=0 AUTOSIZE DMC11 
O7=1 USE CURRENT duct PARAMETERS 
spuvel ewe NEW DMC11 PARAMETERS 
:PROGRAM WILL TYPE “MAINDEC-11-DZDMG-B OMC11 REMOTE CROM, JUMP, AND FREE RUNNI 
:PROGRAM WILL TYPE STAT ie MAP 
; PROGRAN WILL Da? “R" TO INDICATE THAT TESTING HAS STARTED 
THE END OF i Base PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
AND THEN RESUME TESTING 
: SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 
;SWITCH REGISTER OPTIONS 
100000 $W15=100000 ;=1,HALT ON ERRO 
040000 SW14=40C00 ;=1,LO0P ON SURRENT he 
020000 SW12=20000 ;=1, INHIBIT_ERROR_TYPEOUT 
010009 SWie=10000 ;=1,DELETE yi SL one ON ERROR. 
004000 SW11=4000 ;=1, INHIBIT_ITERA 
002000 ’ $W10=2000 ;=1,ESCAPE TO NEXT Tet on ERROR 
001996 oat ;=1,LOOP WITH CURRENT DAT 
990400 SWO8=400 ;=1,LOOP ON ERROR 
000200 SKO=200 ;=1,USE CURRENT DMC11 PARAMETERS, =0,AUTOSIZE OMC11 
000100 SwOS=100 321, HALT BEFORE CLOCKING MICRO-PROCESSOR INSTRUCTION 
000040 SWOS=40 
000020 SWO4=20 
000010 SWO3=10 ;RESELECT DMC11°S i BE TESTED (ACTIVE) 
000004 SWOe= ;LOCK ON TEST SELECT 
090002 SWOl= RESTART PROGRAM AT SELECTED TEST 


063031 SWOO=1 ; INPUT DMC11 PARAMETERS 


_——- ees 


022626 


100000 


000091 


| KO0e 
PAGE 3 
ENERAL DEFINATIONS AND EGUIVALENCIES 


. REGISTER DEFINITIONS 


RO=%0 ;GENERAL REGISTER 

R1l=%1 GENERAL REGISTER 

Re=%e ;GENERAL REGISTER 

R3=%3 ;GENERAL REGISTER 

R4=%4 ;GENERAL REGISTER 

RS=%5 ; GENERAL REGISTER 

SP=%6 ;PROCESSOR STACK POINTER 
PC=%? ;PROGRAM COUNTER 


;LOCATION EQUIVALENCIES 


PS=177776 ;PROCESSOR STATUS WORD 
STACK=1200 :START OF PROCESSOR STACK 


; INSTRUCTION DEFINITIONS 


PUSH1SP=5746 ;DECREMENT PROCESSOR STACK 1 WORD 
SP=S INCREMENT PROCESSOR STACK 1 WORD 
PUSHRO= 10046 ;SAVE RO ON STACK 
OPRO=12600 RESTORE RO FROM STACK 
PUSH2SP=24646 =; DECREMENT athe bt 
POPeSP= REMENT STA 


22626 ; INCREM TWICE 
-EQUIV EMT,HLT ;BASIC BEFINI TION OF ERROR CALL 
;BIT DEFINITIONS 


OF MW CUIMO NID O—-—— — — — 
MC oe as uw 


ee eee 
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D2DMS_ _MACY11_27(1008) O7-MAR-77 18:52 PAGE 4 PAGE: 0024 
(2DMGE.PiL © OF-MAR-77 11:21 TRAPCATCHER FOR UNEXPECTED INTERUPTS 


| 
a3 .3 CSSHUSTADEROREOEDRERESROSSSSESOREROSRNRERRROH TESTES EREEDE SHEER ONESE 
l 9 eee eee eee we ce ates cesses eens es ee sees see ssses Ses e sesso snnesssoss== 
| iof STRAPCATCAER FOR ILLEGAL INTERRUETS 
| ih ‘THE STANDARD "TRAP CATCHER” I$ PLACED 
| 103 ; BETWEEN, ADDRESS. 0 TO ADDRESS 7 7b. 
| 183 :1T LOOKS LIKE “PC+2 HALT’ 
is : £ RERAKRELARRER RAR REAR RELA RAK AAA ALLA ALARA ALTA PHFLALAALAFAALAAALFLELAFLE 
' 108 990009 .=0 
18 : STANDARD INTERRUPT VECTORS 
/ 2 ‘ 
| i 000024 224 
$13 poc924 o05240 .PFAIL ;POWER FAIL HANDLER 
414 000026 990340: 340 ;SERVICE AT LEVEL 7 
| 115 900030 oo46s6 “HLT ;ERROR HANDLER 
| 116 00032 oo0340 340 ‘SERVICE AT LEVEL 
117 900034 o04624  TRPSRY : GENERAL HANDLER ofspatck SERVICE 
11@ 600036 O00249 340 :SERVICE AT LEVEL 
119 000049 240 
120 ogoo4o oogd00 9 ;SAVE FOR ACT-11 OR XXDP 
- 121 «gooo42. oop090 0 'RETURN ADDRESS IF UNDER ACT-11 OR XxDP 
| 122 900049 oo0059 0 'SAVE FOR ACT-11 OR XXOP 
| $23 O00G4%6 003432 SENDAD 'FOR USE WITH ACT-11 OR XXDP 
| 1e4 o00052 252 
| 185 ooo0se 000000 0 ;ACT-11 PROGRAM CHARACTERISTICS 
{ ae .. 
| te 000174 2174 
' 138 900174 oDo0000 DISPRES:0 SOFTWARE DISPLAY REGISTER 
| #89 000176 soo00D SWREG: 9 SOFTWARE SWITCH REGISTER 
et: oo0200 2200 
132 co0e00 900137 s0e0de IMP _START ;GO TO START OF PROGRAM 
134 
135 901000 .=1000 
136 991000 005377 O40SIS O47111 MTITLE: .ASCII <377><12> “MAINDEC-11-DZDMG-B/<377> 
2, 00102 104 O41515 030461 "ASCIZ /DMC11 REMOTE CROM, JUMP, AND FREE RUNNING TESTS“<377> 
ie) 
132 001200 21200 
- 
138 ‘ INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 
141 ‘ 
142 901200 177570 DISPLAY: 177570 
143 O01202 177570 SWR: 177570 
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001204 
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001214 


001234 


001236 


177560 


177566 


000000 


o0000t 
000001 
000000 


001472 
001676 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


















; INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 


TKCSR: 177560 ;TE' .ETYPE KEYBOARD CONTROL REGISTER 
TKDBR: 177562 :TEETYPE KEYBOARD DATA BUFFER 
TPCSR: 177564 ;TELEPRINTER CONTROL REGISTER 
TPDBR: 177566 : TELEPRINTER DATA BUFFER 


;PROGRAM CONTROL PARAMETERS 


RETURN: 0 ;SCOPE ADDRESS FOR LOOP ON TEST 
xT: 0 !ADDRESS OF NEXT TEST TO BE EXECUTED 
CK: 0 ADDRESS FOR LOCK ON CURRENT DATA 
ICOUNT: 3 *NUMBER OF ITER THAT CURRENT TEST WILL BE 
LPCNT: 0 ‘NUMBER OF ITEREATIONS TED 
TSTNO: O !NUMBER OF TEST I 
PASCNT: 0 ‘NUMBER OF PASSES COMPLETED 
ERRCNT: 0 ‘TOTAL NUMBER OF ERROR 
LSTERR: 0 PC OF LAST ERROR CALL 


;PROGRAM VARIABLES 


STRTSW: O ;SWITCHES AT START OF PROGRAM 
TAT: §O :DM STATUS WORD STORAGE 
CLKX: Q 

MASKX: 0 

EMP1: 0 ; TEMPORARY STORAGE 

TEMPe: 0 ; TEMPORARY STORAGE 

TEMP3: 0 ; TEMPORARY STORAGE 

TEMP4: 0 EMPORARY STORAGE 

TEMPS: 0 : TEMPORARY STORAGE 

SAVRO: 0 RO STORAGE 

SAVRI: 0 ;R1 STORAGE 

SAVRe: O ;Re STORAGE 

SAVR3: QO ;R3 STORAGE 

SAVRY: 0 iRY STORAGE 

SAVRS: OQ STORAGE 

SAVSP: 0 :STACK POINTER STORAGE 
SAVPC: 0 PROGRAM COUNTER STORAGE 
Oe 
MEMLIM: O ;HIGHEST LOCATION FOR NPR'S 
DMACTY: .BLKW 1 ;DMC11°S SELECTED ACTIVE. 
MNUM: .BLKW 1 ;OCTAL NUMBER OF DMC11°S 
SAVACT: .BLKW 1 ;ORIGINAL ACTV DEVICES 
SAVNUM: .BLKW 1 ;WORKABLE NUMBER 
2% 0 ;POINTER TO RUNNING DEVICE. - 
CREAM: DM.MAP-6 ; TABLE POINTER. 
MILK: CNT. MAP-4 TABLE POINTER 
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| bz MACY 11 7 (1006) O7-MAR-77 15:52 PAGE & PAGE: dc0z 
D2DMGE.P11  O7-MAR-77 11:21 PROGRAM BaRANETERS, VARIABLES, AND TRAP CALLS. 
197 
198 ;PROGRAM CONTROL FLAGS 
| BBE opie gp IME. -BvtE PROGRIN, INITIAL IZRTION FLAG 
203 O013% 00 LOKFLG: .BYTE 0 ;LOCK ON CURRENT TEST FLAG 
204 001327 006: QV.FLG: .BYTE 0 ‘QUICK VERIFY 
205 mai !ON FIRST Bass’ br EACH DMC11 ITERATIONS WILL SE 
207 “ : 
ss Catach act 
219 IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 
ois 5 RRR R EERE AL ELK EK ERE RELA ELE EEL ELE E LER EAEL ERE REEL LER E EE 
214 001330 ’ TRPTAB: 
gis ines 194400 Min ;CALL TO SCOPE LOOP AND ITERATION HANDLER 
el” ancien 104401 SCOP1=TRAP+1 ;CALL TQ LOOP ON CURRENT DATA HANDLER 
213 ania 1o4Nge TYPE=TRAP+2 ;CALL TO TELETYPE OUTPUT ROUTINE 
ee! nines 104403 INSTR=TRAP#3 | :CALL TO ASCII STRING INPUT ROUTINE 
ge2 uh tee 1O440s INSTER=TRAPHS ;CALL TO INPUT ERROR HANDLER 
ees | 104405 PARAM=TRAP+5 :CALL TO NUMERICAL DATA INPUT ROUTINE 
| ee? seis 10406 SAVOS=TRAP+E ;CALL TO REGISTER SAVE ROUTINE 
ee4 satel 104g? RESOS=TRAP+7 ;CALL TO REGISTER RESTORE’ AOUTINE 
53 sone 1ow416 CONVRT=TRAPS10 ;CALL TO DATA OUTPUT ROUTINE 
| e33 acuel Low CNVRT=TRARS 11 :CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
| 36 neces 1OWsie NSTCLR=TRAP +12 ;CALL TO ISUE A MASTER CLEAR ‘ § 
237 Leama 104413 DELAY=TRAPS13 sCALL TO DELAY 
33 aida 104414 "ROMCLK=TRAPS IN, ;CALL TO CLOCK ROM ONCE 
241 104415 DATACLK=TRAP+15 ;CALL TO CLK DATA 
| pee 001362 005454 TACLK 
ei3 Sentai LOWE veil ;CALL TO DELAY A CLOCK TICK 
247 ei tit tit ii ieee 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 





;DMC11 CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST 


;DMC11 VECTOR AND REGISTER INDIRECT POINTERS 


MACYL1 27(1008) O7-MAR-77 18:S2_ PAGE 7 
OP-MAR-77 11:21 
001366 900000 STATI: 0 
001370 oo0000 STAT2: 0 
001372 o00000 STATS: O 
001374 og0000 OMRVEC: 0 
001376 oo0000 OMRLVL: 0 
001400 00000 DMTVEC: 0 
001402 00090 DMTLVL: O 
001404 oo0000 MCSR: 0 
001406 00000 DMCSRH: 0 
00:410 oo0090 MCTL: 0 
001412 ooo000 OMPO4: 0 
001414 doc006 MPOb: 0 
; TEMP STORAGE 
01416 oo0000 TEMP: 0 
001460 =, +40 
;DMC11 STATUS 
001500 =1500 
001500 Om. MAP 
001500 900001 OMCROO: .BLKW 
1502 000001 DMS1C0: :BLKW 
001504 0900 OMS200: /BLKW 
001506 o00001 OMS300: BLKW 
001510 o0000 DMCROL: .BLKW 
001512 000001 OMS101: | BLKW 
001514 900001 DMS201: “BLKW 
001516 000001 DMS301: | BLKW 
001520 00001 OMCRO2: .BLKW 
001522 O0000! DMS102: :BLKW 
001524 000001 OMS202: ‘BLKW 
001526 O00001 OMS302: | BLKW 
001530 000001 DMCRO3: .BLKW 
001532 000001 DMS103: ;BLKW 
001534 000001 DMS203: | BLKW 
001536 1 OMS303: | BLKW 
001540 000001 DMCROY: .BLKW 
001542 900001 OMS104: “BLKW 
001544 90000! OMS204: ‘BLKW 
001546 0000) OMS304: “BLKW 


POINTER 


TO DMC11 RECEIVER INTERRUPT VECTOR 

TO OMC11 RECEIVER INTERRUPT SERVICE PS 

TO OMC11 TRANSMITTER INTERRUPT VECTOR 

TO DMC11 TRANSMITTER INTERRUPT SERVICE PS 
TO DMC11 CONTROL STATUS REGISTER 

TO DMC11 CONTROL STATUS REGISTER HIGH SYTE. 
TO DMC11 CONTOL OUT REGISTER 

TO OMC11 PORT REGISTER(SEL 4) 

TO DMC11 PORT REGISTER(SEL 6) 


TABLE AND ADDRESS ASSIGNMENTS 


— —p— — — —— —- p— 


ee ee eee ee 





; CONTROL STATUS weeISTes FOR OMC11 NUMBER 00 
; VECTOR FOR DMC11 NUM 

:DOCMP_LINE® FOR DMC11 NUMBER OO 

: 3RD STATUS WORD 


;CONTROL STATUS acre FOR DMC11 NUMBER O1 
;VECTOR FOR DMC11_N 

:DDCMP_LINE# FOR oN I NUMBER 01 aks 

; 3RD STATUS WORD 


;CONTROL STATUS py tes FOR DMC11 NUMBER Ce 
;VECTOR FOR OMC11 NUMBER Oe 

:DOCMP_LINE® FOR OMe! NUMBER 02 

:3RD STATUS WORD 


i CONTROL STATUS REGISTER FOR DMC11 NUMBER 03 
;VECTOR FOR DMC11 NUMBER 03 

;DDCMP_LINE® a DMC11 NUMBER 03 
:3RD STATUS WORD 


;CONTROL STATUS pee FOR DMC11 NUMBER 04 
:VECTOR FOR OMC11 N R OY 

;DDCMP_LINE® FOR OMe NUMBER O4 

;3RD STATUS WORD 





COs 
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| 304 
305 o015S0 000001 DMCROS: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER oS 
306 001552 o000C1 DMS!GS: .BLKW 1 “VECTOR FOR DMC11 
307 901554 o00001 OMS265: .BLKW 1 :DDCMP LINE® FOR OMIT NUMBER OS 
308 001556 000001 DNE305: :BLKW 1 :3RD STATUS WORD 
310 001560 oon001 DMCROb: .BLKW 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER OF 
311 001562 000001 DMS106: .BLKW 1 ; VECT OR FOR OMC11 NUM 
312 001564 000001 DMS206: .BLKW 1 “DDOCMP LINE® FOR DMC11 NUMBER O06 
3:3 001566 000001 OMS306: .BLKW 1 :3RD STATUS WORD 
315 001570 000001 DMCRO?: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 07 
316 001572 O0000! DMS107: .BLKW 1 ‘VECTOR FOR DMC11 NUMBER 07 
317 001574 000001 DMS207: .BLKW 1 :DDCMP LINE® FOR DMC11 NUMBER 07 
318 001576 000001 OMS307: .BLKW 1 :3RD STATUS WORD 
| 329 01600 og0001 DMCRIO: .BLKW 1 ;CONTROL STATUS REGISTER FOR OMC11 NUMBER 10 
321 001602 o0000! OMS110: .BLKW 1 “VECTOR FOR DMC11 NUMBER 10 
322 001604 000001 OMS210: .BLKW 1 -DOCMP LINE® FOR ONC NUMBER 10 
323 061606 000001 OMS310: .BLKW 1 !3RD STATUS WORD 
325 001610 oo0001 DMCRI1: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 11 
| 326 O0161e 00009 DMS111: .BLKW 1 ;VECTOR FOR OMCL1 NUMBER 1 
| 327 001614 900001 DMS211: .BLKW 1 :DOCMP LINE® FOR OMCI NUMBER Ml 
328 001616 00000! ‘ OMS311: .BLKW 1 :3RD STATUS WORD 
330 001620 o00001 DMCR12: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 12 
331 001622 900001 DMSll2: .BLKW 1 ‘VECTOR FOR DMC11 NUMBER | 
332 001624 00000: DMS2le: .BLKW 1 :DOCMP LINE® FOR OMCIT NUMBER 12 
$23 00162e6 900001 DMS3le: .BLKW 1 :3RD STATUS WORD 
| 335 001630 o00001 DMCR13: .BLKW 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 13 
336 001632 0o00001 DMS113: .BLKW 1 ; VECTOR FOR DMC11 NUMBER 13 
337 001634 000001 DMS213: .BLKW 1 :DOCMP LINES FOR DMC11 NUMBER 13 
001636 000001 DMS313: .BLKW 1 :3RD STATUS WORD 
240 901640 O00001 DMCR14: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 14 
341 001642 O00001 OMS114: :BLKW 1 "VECTOR FOR DMC11 NUMBER 
342 OO01644 900000! DMS214: .BLKW 1 ‘DOCMP LINE# FOR ONC NUMBER 14 
343 001646 o00001 OMS314: .BLKW 1 :3RD STATUS WORD 
345 001650 000001 DMCRIS: .BLKW 1 ;CONTROL_ STATUS REGISTER FOR DMC11 NUMBER 15 
346 001652 O0000! OMSi115: .BLKW 1 “VECTOR FOR DMC11 NUMBER 
347 001654 O0000! OMS215: .BLKW 1 ‘DDCMP LINE® FOR DNCI NUMBER 15 
348 001656 000001 OMS315: .BLKW 1 :3RD STATUS WORD 
' 350 001660 o00001 DMCRI6: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 16 
351 001662 o00001 DMS116: .BLKW 1 ‘VECTOR FOR DMC11 NUMBER 
| 352 001664 o00001 OMS216: .BLKW 1 :DDCMP LINE# FOR DMC11 NUMBER 16 
363 001666 O00001 OMS316: .BLKW 1 :3RD STATUS WORD 
355 001670 O00001 DMCR17: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 17 
356 001672 000001 OMS117: .BLKW 1 :VECTOR FOR DMC11 N ? 
357 001674 00000! OMS217: .BLKW 1 :DDCMP LINE® FOR ONC NUMBER 1? 
358 O01676 O0000! DMS317: .BLKW 1 :3RD STATUS WORD 
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;DMC11 PASS COUNT AND ERROR COUNT TABLE 


001702 CNT. MAP: 

031702 O00000 PACTOO: 0 ;PASS COUNT FOR DMC1i NUMBER 00 
001704 000000 ERCTOO: O ;ERROR COUNT FOR DMC11 NUMBER 00 
001706 000000 PACTO1: O ;PASS COUNT FOR DMC11 NUMBER O1 
001710 000000 ERCTO1: 9 ;ERROR COUNT FOR DMC11 NUMBER O1 
01712 O00000 PacTCe: 0 ;PASS COUNT FOR DMC11 NUMBER Oe 
001714 o0c000 ERCTOe: O ERROR COUNT FOR DMC11 NUMBER Oe 
001716 000090 PACTO3: O ;PASS COUNT FOR DMC11 NUMBER 03 
001720 900000 ERCTO3: O ;ERROR COUNT FOR DMC11 NUMBER 03 
001722 o0G000 PACTOY: 0 ;PASS COUNT FOR DMC11 NUMBER 04 
001724 00000 ERCTOY: 0 ;ERROR COUNT FOR DMC11 NUMBER O4 
001726 000000 PACTOS: O ;PASS COUNT FOR DMC11 NUMBER 05 
001730 o00000 ERCTOS: O ‘ERROR COUNT FOR DMC11 NUMBER OS 
001732 000000 PACTOb: O ;PASS COUNT FOR DMC11 NUMBER 06 
001734 000000 ERCTOb: O ;ERROR COUNT FOR DMC11 NUMBER O6 
001736 000000 P PACTO?: O ;PASS COUNT FOR DMC11 NUMBER 07 
001740 900000 ERCTO?7: O :ERROR COUNT FOR DMC11 NUMBER 0? 
001742 O30000 PACTIO: Q ;PASS COUNT FOR DMC11 NUMBER 10 
001744 000000 ERCTiO: O ERROR COUNT FOR DMC11 NUMBER 10 — 
001746 o00000 PACT11: Q ;PASS COUNT FOR DMC11 NUMBER 11 
061750 000000 EROT11: 0 ;ERROR COUNT FOR DMC1! NUMBER 11 
0017S2 9000000 PACTIe: 0 ;PASS COUNT FOR DMC11 NUMBER 12 
001754 900000 ERCTle: O ;ERROR COUNT FOR DMC11 NUMBER 12 
001756 900000 PACT13: 0 ;PASS COUNT FOR DMC11 NUMBER 13 
001760 d00000 ~ ERCT13: O ;ERROR COUNT FOR DMC11 NUMBER 13 
001762 o00000 PACT14: Q ;PASS COUNT FOR DMC11 NUMBER 14 
001764 000000 ERCT14: 0 ERROR COUNT FOR DMC11 NUMBER 14 
CO1766 O00000 PACTIS: 0 ;PASS COUNT FOR ‘DMC11 NUMBER iS 
001770 000000 ERCT1S: 0 ‘ERROR COUNT FOR DMC11 NUMBER 15 
001772 000000 PACTIE: O ;PASS COUNT FOR DMC11 NUMBER !6 
061774 000000 ERCT16: O ;ERROR COUNT FOR DMC11 NUMBER 16 
001776 ooc000 PACT1?: O ;PASS COUNT FOR DMC11 NUMBER 17 
002000 000000 ERCT17: O : ERROR COUNT FOR DMC11 NUMBER 17 
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FORMAT OF STATUS TABLE 


1§ 14 13 12 11 10 O09 O08 O7 O68 OS OY QO 02 o1 00 


Cnet ee OC Ses, Soke 8 eee 
FOeSSSSET ESOL EER Ee. 2.8. £28. Fees STAT1 
ye Re MN ure Le ee I 


I I I 
: * 8 Ff 2.8. : eS Pe PS .. ; STATe 


CSR: CONTAINS DMC11 CSR ADDRESS 
STAT1: BITS 00-08 IS DMC11 VECTOR ADDRESS 


BITIS=1 MICROPROCESSOR HAS CRAIN 
BIT15=0 MICRO-PROCESSOR HAS C 
BITG=1 7°72, TURNARO io Sohne CORNECTOR IS ON 
T1420 NO TURNAR oNN 
BITi320 LINE UNIT. SOL 
BITiae1 CINE UNIT 1S AN MB202 
B1T12=1 NO LINE UNIT 
BITS 09-11 IS OMC11 BR PRIORITY LEVEL 
STAT2: LOW BYTE IS SWITCH PAC#1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PACH2 (BM873 BOOT ADD) 
STAT: B1TQ=1 DO FREE RUNNING TESTS ON KMC 
(MUST BE SET TO A ONE MANUALLY [PROGRAMS G AND H ONLY?) 


G03 





' OZDMG Macy LL 27° 1008) OT-MAR-77 15:Se PAGE 12 PG 
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4? ' 
| 42] ; PROGRAM INITIAL IZATION b 
472 sLOCK OUT INTERRUPTS 
| oy? :SET UP PROCESSOR STACK 
| 474 :SET UP POWER FAIL VECTOR 
4? ;CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
476 :TYPE TITLE MESSAGE 
} (¢ 
| 478 902002 012737 O00340 177776 .START: MOV #340,PS LOCK gu INTERRUPTS 
| 473 002010 012706 001200 MOY #STACK, SP ‘SET UP STACK 
' 480 002014 012737 O005240 ooD024 MOV #.PFAIL awe4y SET LP POWER FAIL VECTO 
| 481 O02022 013737 001310 001314 MOV DMNUM, SAVNUM j SAVE NUMBER OF DEVICES AN SYSTEM, 
482 002030 005037 007556 CLR SWFLG’ CLEAR SOFT TYPEOUT FLA 
| 483 902034 105037 001325 CLRB — ERRFLG ‘CLEAR ERROR FLAG 
484 002040 105037 9001327 CLRB =. QV. FLG :ZERO QUICK VERIFY FLAG 
485 902044 012737 001470 001320 MOV #0M.MAP-1°,CREAM:GET MAP POINTER. 
486 O020S2 012737 001676 001322 MOV #CNT. MAP-4 | MILK GET Pass COUNT MAP POINTER 
487 O02060 012737 100000 OO:316 MOV #BITiS,RUN’ “POINT POINTER TO FIRST DEVICE. 
488 O02066 012700 001702 MOV #CNT.MAP, RO ;PASS COUNT POINTER TO RO 
| 489 002072 o05020 23$: CLR (RO)+ TABLE 
| 490 002074 022700 on2002 CMP ACNT. MAP+100, RO : BONE YET? 
| 491 002100 001374 BNE 23 *KEEP GOING 
492 002102 005037 001234 CLR LSTERR CLEAR LAST ERROR POINTER 
493 002106 012737 000901 ool2e6 MOV #1, TSTNO SET UP T 
434 002114 012737 o02002 001214 MOV #. START, RETURN 'SET Up FO POler FAIL BEFORE 
| 496 002122 013746 000006 MOV aub,-(SP) ; SAVE CURRENT VECTORS 
| 497 002126 013746 900004 MOV a84, -(SP) 
| 498 002132 012737 002166 oo0004 MOY #63. 084 SET UP FOR TIMEOUT 
' 483 002140 612737 177570 OOl20e MOV #177570, SWR :SET SWR TO HARD SWR RDORESS 
' §06 0021468 012737 177570 o01200 MOV #177570; DISPLAY :SET DISPLAY TO HARD SWR ADDRESS 
. 501 O02154 022777 177777 177020 CMP #-1, JSWR ;REFEREN ce HARUARE SWITCH REGISTER 
502 O0el62 0o01402 BEQ 6342 :IF = -1 USE SOFT SWR ANYWAY 
503 O00c164 Oo00407 BR 75 IF IT EXISTS AND NOT = -1 USE HARD SWR 
504 O02166 Oe2be6 6S: CMP (SP)+ (SP)+ ADJUST STACK 
505 002170 012737 O00176 oDl1e02 MOV #SWRES. SWR ‘POINTER TO SOFT SWR 
506 002176 010737 000174 cd1200 MOV nOSPREG, DISPLAY: POINTER 1 SOFT DISPLAY REG 
507 002204 012637 OO0004 7g: MOV (SP)+, a84 RESTORE VECTORS 
508 O02210 012637 o00006 MOV (SP)+' aab 
£09 002214 105737 001324 TSTB ~—sINIFLG HAS INITIALIZATION BEEN PERFORMED 
£10 002220 O01006 BNE 20$ : Y 
511 O02222 022737 003432 op004e CMP #SENDAD, 3842 :IF ACT-11 AUTOMATIC MODE, DON’T TYPE ID 
Sie 002230 00140e BEQ 20$ 
513 002232 104402 001000 TYPE MTITLE ;TYPE TITLE MESSAGE 
£14 002236 004737 007362 20%: JSR Pc CKSWR :CHECK FOR SOFT SWR 
51S O0e242 017737 176734 001236 MOV ash, STRTSW :STORE STARTING SWITCHES 
S16 002250 005737 op0042 TST ils IT RUNNING IN AUTO MCDE? 
£17 002254 00140e BEG 0 R if NO 
£18 O0c256 005037 001236 CLR STRTSW LIF CLEAR SWITCHES 
519 O0e26e 032737 000001 001236 BIT WSWOO,STRTSW =: IF oR QUESTIONS ARE ASKED. 
520 002270 Oo010le BNE :BR IF § Swabs! 
S21 002272 105737 001236 TSTB ss STRTSW :BIT7=1?? 
S22 002276 100007 BPL 17$ :BR IF SWO7=0 
E22 002300 005737 001306 TST OMACTY :ARE ANY DEVICES SELECTED? 
524 002204 O010 BN : 


E 16$ ;BR IF 
10440e 007056 TYPE, NOACT ;NO DEVICES SELECTED. 
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001324 


001250 


001252 
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001500 
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100000 
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HOS 





. HALT :STOP THE SHCW 
BR -2 :DISQUALIEY CONT INUE SWITCH 
178: JSR PC BUTO. SIZE  :G0 00 THE AUTO SIZE 
163: TSTB SONY FL :FIRST TIME? 
BEG 21$ BR IF YES 
STB pe IF USING SAME PARAMETERS DONT TYPE mae 
BIT #BITL!B172,STRTSW;IS TEST NO. OR LOCK SELECT 
BEQ 24$ :tF NO THEN TYPE STATUS 
3R 1$ IF YES 0 NOT TYPE STATUS 
21: COM INIFLG i SET FLA 
Zug: TYPE XHEAD : TYPE HEADER 
MOV KOM. MAP, RY ‘SET POINTER 
S MOV R4 TEMP ; SET ADDRESS 
MOV (R4)+, TEMP2 :SET CSR 
BEQ 1$ *ALL DONE IF ZERO 
MOV (R4)+, TEMPS ‘SET STA 
MOV (R4) +! TEMPS :SET state 
MOV (R4) +) TEMPS SET STATS 
CONVRT : TYPE OUT STATUS MAP 
XSTATO : 
BR S$ } 
1: MOV #OM. MAP, RO :RO POINTS TO STATUS TABLE t 


35 5 RRA RRA REEL ERE RAE E ELE RE REEL RARE ELE R AREAL A EERE REAR ALE LE RES EERE S 


ti SIZE TEST 
:4THIS TEST VERIFYS THAT THE onct1s AND/OR KMC11S ARE AT THE CORRECT FLOATING 
:!#ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 
::#CHECK THE ADDRESSES OF ALL FLOATING DEVICES (OJ,DH, DQ, Du, DU, LKIDMC,0Z,KMC). 
tt8IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THE OMci1 I 

:;#ONCI1 ADDRESS IS 760070, KMC11 IS 760110. NO DEVICE "SHOULD EVER BE AT 
Pberrerstneticrrenere trent terete cece reeeeeee een eeceay) at 


MOV a#4,-(SP) : SAVE Loc 4 

MOV 386, - (SP) LOC 6 

CLR aee. tera” vecee 

CLR TEMP3 :CLEAR FLAG 

CLR RS *RS=0=DMC, RS=-1=KMC 
AUSTRT: MOY (RO) ,OMCSR :GET NEXT DMC CSR 

BEQ AUDONE :BR IF DONE 

TST RS :DMC_OR KMC? 

BNE 1g :BR IF KMC 

BIT #B1T15,2(RO) : CHECK FOR onc CSR 

BNE OK SKIP IF 

BR 25 ‘ITS A bec 50 CONTINUE 
1S: BIT #BIT1S,2°RO) ; CHECK FOR KMC CSR 

BEQ OK SKIP IF NOT KMG 
2s: MOV BNODEY, 84 SET uP FOR TIMEOUT 

TST RS sONC OR KMC? 

BNE 3$ :BR IF KMC 

HOV 7 iR3 15 COUNT OF DEVICES BEFORE Onc 
2g: MOV ;R3 IS COUNT OF DEVICES BEFORE KMC 
4g: MOV SOPv Tae. Re : ?R2 IS DEVICE TABLE PONTER 


MOV #160010;R1 START WITH ADDRESS 160010 





oe a ee 


MACY 11 


Sate Pli 


-OSe 


NOM MOOMmOrmmma 
b= + 
WONMUI£C Wr 


620 


002536 
002540 


27( 1008) 


O?=MAR-77 1 


00S711 


O02ble 


l 
? 001404 
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ocoo04 


001252 


o— - e+ 


PAGE 


FLOAT: 


FY: 


OK: 
NODEV: 
ERR: 


1$: 


3$: 
4g: 
ERRPC: 


CONTAB: 


DEVTAB: . 


I03 


4 (RI) ) 
(R2),R4 
RY RI 
R} 
RY, RI 
Ra 
FLOAT 
HERR, Ry 
R1,DMCSR 
#10,R1 
FY 
#10,R0 
Au TStRT 
(R2)+,-(R2) 
TEMP3 
1g 


». SAVPC 


#-1, TEMP3 
R1,SAVR 


RS 
3$ 


4$ 


(SP)+, (SP i+ 
OK 


6,2 


ee me ee ee 


R N Ri 
EOUT, GET NEXT ADDRESS 
an NORE DEVICES TO CHECK FOR” 
OK ONLY OMC’S ARE LEFT, SET UP FOR 
: CHECK onc ADDRESS 
; DOES IT MATCH 
‘BR IF Y g 
!GET NEXT DMC ADDRESS 
‘SKIP TO NEXT DMC CSR 
; CONTINUE 
ON TIMEOUT, INC R2, DEC R32 
‘CHECK FLAG IF = 0 TYPE HEADER 
:SKIP HEADER 
: TYPEOUT HEADER MESSAGE 
; CONE TGURAT ION ERROR! !!! 
AVE PC FOR TYPEOUT 
TYPE OUT PRROR PC 
: TYPE REST OF HEACER 


SET FLAG SO IT ONLY GETS TYPED ON 
:SAVE Rl FOR TYPEOUT 


; TYPE Wr VALUES 
DMC OR KMC ? 
:BR IF KMC 


TIMECUT 


; CONTINUE 


;ADJUST STACK 
BR TO GET OUT 


mT 


H 
a5 
; b+ 4 


102 


Mo 


ZOMGB. 
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002734 


003060 


003062 
003066 
00 

eats 


00 
003112 
003114 


003206 
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002734 


001411 


177777 
001500 
000006 
000004 
000010 


006046 


176174 
005797 


176154 


001306” 


000390 
009302 


001000 


001200 
OO0006 
000004 


003144 
000006 


157776 
007776 


O0CO0& 


oo0004 
007776 
030000 


037400 


000340 
000004 


15:Se2 


001312 


001306 
amg 


coc0o4 


177776 
60123€ 


EVEN 
AUDONE : peas 


1$: MOV 


es: MOV 


3$: MOV 
4§: MOV 


&$: TST 
7$: MOV 


2s: CMP 


10$: 


JOs 
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RS 
1$ 


#-1, RS 
#OM’ MAP, RO 
AUSTRT 

($9)+, 346 
(SP) +! an4 
#SWO3;STRTSW 
3$ 


MNEW 
Ro 


JSWR, SAVACT 
, MERR3 

-2 
JSWR pmacty 
DMactY,R 
#300, RO 


(RODS, (RL)4 
#1000; RO 
4g 


RESTART 


#STACK, SP 
dee, -( SP) 
ae, -(SP) 


RO 
#2$,084 
as 


(R 
pier7re, »RO 


(SP)+; dae 
oF oe (SP)+ 
RO’ 


res RO 
#30006, RO 


037400, »RO 


#340, PS 
B12, STRTSU 


;DMC? 

:BR 1 he 06 «gf oe DONE 
RESET Dacre START OF TABLE 
+ RESTORE LOC 

RESTORE LOC 4 

aK sai DEVICES?” 


TYPE THE weit 4 
ERO DATA LIGHTS 
WAIT FOR USER TQ TELL WHAT DEVICES TO RUN 
:1S THE NUMBER VALID? 
;BR IF NUMBER IS OK. 
; TELL USER i INVALID NUMBER. 
STOP EVERY THING. 
s RESTART THE PROGRAM AGAIN. 
GET NEW DEVICE PATTERN 
;SHOW THE USER WHAT HE SELECTED. 
:CONTINUE DYNAMIC SWITCHES. 
; PREPARE TO CLEAR THE FLOATING 
; VECTOR AREA. 300- 
:START PUTTING “PC+2 - HALT” 
IN VECT AREA. 
:POP POINT 
ALL DONE?? 
;8R IF NO. 


;SET UP STACK 

SAVE LOC 6 
;SAVE_LOC 4 

:START AT O 

iSET UP FOR TIME OUT 
;10 AUTOSIZE MEMORY 
;CHECK ADDRESS IN RO 
:15 it AT LEAST 28K 


:BR IF_NO 

;SAVE 2k FOR MONITORS 
STORE MEMORY LIMIT 
SRESTORE LOC 4 

RESTORE coc 6 

; CONTINU 

; ADJUST 


MET ACK 
;GET LAST GOOD ADDRESS 
SAVE _2K FOR MONITORS 


ils IT 


NO. 
i IF 8K DON’T SAVE ek 


{LOCK or INTERRUPTS 
:CHECK FOR LOCK ON TEST 
;BR IF NO LOCK DESIRED. 
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005745 
000240 
000240 


003640 


OOSeS7 
175720 


0035¢é 
003524 


003522 


bisa 


15:52 PAGE 16 
PROGRAM INITIALIZATION AND START UP. 


3f: 
4§: 


KOS 


NOP. tTST 
a TTST+2 


BRW, TTST 

BRX’ TTST+2 
#CYCLE, RETURN 
ge STRTSH 


ARETURN 


; TYPE LOCK SELECTED. 
sAOTUGT ate ROUTINE. 


CONTINUE ALON C. 
PREPARE NORMAL SCOPE ROUTINE 
‘LOCK NOT SELECTED 
s START AT “CYCLE” FIND W 
:IS TEST NO. SELECTED? 
:BR IF YES 


; TYPE R 
;START TESTING 


NOR pA 
WHICH DEVICE T 


PAGE: cot 


ee ee eae 


— 
— 


SNINNNINISNINISI 
ob bs be 
WOnNMUIC Wr 


003274 


06 
003504 


003506 
003512 


000005 


001230 
000001 
001232 


004737 
O10016 
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001234 


001314 


000377 
001310 
o0004e 


007620 
007620 
ode 
902 
002 


00e 


0073¢2 
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175660 


001327 
001314 


001214 


ee ee eee ee 


;MAKE THE WORLD CLEAN AGAIN. 
:CLEAR LAST ERROR PC 
:CLEAR ERROR FLAG 

‘UPDATE PASS COLINT 

: DISPLAY PASS COUNT 

TYPE END PASS 
i TYPE CSR 

:SHOW IT 
:TYPE VECTOR 
:SHOW IT 
: TYPE PASSES 
: SHOW 
; TYPE ERRORS 


I 
GET POINTER TO PASS ei! 
;STORE PASS COUNT FOR THIS DMC11 
STORE ERROR COUNT FOR THIS DMC1i 
ARE ALL DEVICES TESTED? 


:BR NO. 
;SET THE ae VERIFY FLAG. 
THE COUNT 


; OR DOP 
!IF NOT, CONTINUE TESTING 
:STOP THE SHOW--CLEAR THE WORLD 


;CKECK FOR SOFT SWR 


2 PAGE 17 
END OF PASS ROUTINE 
:END OF PASS 
TYPE NAME OF TEST 
UPDATE PASS COUN 
:CHECK FOR EXIT anf ACT-11 
!RESTART TEST 
.EOP: RESET 
CLR LSTERR 
CLRB = ERRFLG 
INC PASCNT 
MOV PASCNT, JDISPLAY 
TYPE ,MEPASS 
TYPE | MCSRX 
CNVRT  )XCSR 
TYPE | MVECX 
CNVRT  /XVEC 
YPE | MPASSX 
CNVRT > xPASS 
TYPE ) MERRX 
CNVRT XERR 
MOV AIL 
MOV PASCHT. (RO)+ 
MOV ERRCNT, (RO)+ 
DEC SAVNUM’ 
BNE RESTRT 
MOYB #377, QV.FLG 
MOV DHNU SAVNUM 
MOV aay? 8} 
EQ Ree” 
RESET 
SENDAD: 
JSR PC, (RL) 
NOP 
NOP 
NOP 
NOP 
RESTRT: MOV #CYCLE , RETURN 
IMP CYCLE 
XCSR: 1 
DMCSR 
XVEC: 1 
.BYTE 4,2 
DMRVEC 
xPaAss: 1 
.BYTE 6,2 
PASCNT 
XERR: l 
ERRCNT 
:SCOPE LOOP AND INTERATION HANDLER 
.SCOPE: JSR PC, CKSWR 
MOV RO; (SF) 


; SAVE RO ON THE STACK 


MOS 
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761 003514 032777 o4Oooc 17s4E0 BIT #BIT14, ISWR -"LOOP ON THIS TEST” 
762. 003522 001407 TTST:  BE0 1$ :BR IF NO. (IF LOCK SWOl=1; THIS LOC =240) 
763 003524 000437 BR 3$ :GOTO 3$ CIF LOCK SWOl=1; THIS LOC =240) 
764 003526 105777 1754S2 TSTB. = ATKCSR ;KEYBOAD DONE? 
765 003532 100034 BPL 3$ -BR IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST) 
766 003534 017700 175446 MOV JTKDBR, RO ; CLEAR DONE BIT 
767 003540 O00415 BR INUE 
768 003542 032777 oOO4000 175432 1S: BIT #SW11, ISWR i DELETE ITERATION? (QUICK PASS) 
769 003550 001011 BNE $ 
770 003552 105737 001327 TSTB = QV. FLG HAVE PASSES BEECOMPLETED? 
771 003556 001406 BEQ 2$ BR IF kK PA 
772 003560 005237 001224 INC LPCNT : UPDATE TTERATION’ COUNTER 
773 003564 023737 O0le24 001222 CMP LPCNT, ICOUNT sR ALL ITERATIONS DONE?? 
774 003572 101414 BLOS NOT YET 
775 003574 105037 001325 2g: CLRB —s ERRFLG :PREPARE FOR NEW TEST 
776 003600 005037 001224 . CLR LPCNT :START ICOUNTER AT O 
777 003604 005037 O01l220 CLR LOCK 
778 003610 012737 O00020 o0:222 MOV #20, ICOUNT RESET ITERATIONS 
779 003616 013737 OOl216 o001214 MOV NEXT, RETURN :GET NEXT T 
780 003624 O1i600 7 3S: MOV (SP) ‘RO ;POP_RO OFF a THE STACK 
781 003626 Oe2b26 POP2sP ‘FAKE AN "RTI" 
782 003630 013701 001404 MOV OMCSR, R1 :R1 CONTAINS BASE DMC ADDRESS 
783 003634 000177 175354 JMP JRE TURN :GO DO THE TEST 
784 003640 001497 BRW: 1407 
Bs 003642 000437 BRX: 437 
oer CHECK FOR FREEZE ON CURRENT DATA 
789 ‘ 
790 003644 004737 007362 .SCOP1: JSR PC, CKSWR ;CHECK FOR SOFT SWR 
791 003650 032777 001009 175324 BIT #SW09, aSWR "IS SWO9=1 (SET)? 
792 003656 001405 BEQ 1$ :BR IF NOT SET. 
793 003660 005737 001220 TST LOCK 
794 003664 001402 BEQ I 
795 003666 013716 O01220 MOV LOCK, (SP) ;GOTO THE ADDRESS IN LOCK. 
236 003672 o00002 13: RTI :GO BACK. 
798 TELETYPE OUTPUT ROUTINE 
3 pear peat 
801 003674 010546 TYPE: MOV S,-(SP) :SAVE RS ON THE STACK. 
802 603676 017605 op0002 , MOV RB tsps RS ‘GET ADDRESS OF MESSAGE. 
803 003702 062766 O00002 oD0002 ADD #2,2(SP) :POP OVER ADDRESS. 
804 003710 005737 O07SSE 4$: TST SneLG j SOFT SWR MESSAGE? 
80S 003714 001004 BNE 1$ ;1F YES TYPE IT OUT REGARDLESS OF SWil2 
806 003716 032777 O10000 i75256 BIT #SW12, ISWR ‘INHIBIT ALL PRINT OUT? 
807 003724 O0i012 BNE 3$ ‘BR IF NO PRINT OUT NANTED (SuL2= 1) 
808 003726 105715 1S: TSTB —s_ (RS) :IS NUMBER MINUS? (MSB=1 (BIT? 
809 003730 100002 BPL 2$ iBR IF NUMBER, IS PLUS 
810 003732 104402 o0SS74 TYPE MCRLF TYPE A CR/L 
811 003736 105777 175246 2S: TSTB  ATPCSR TTY READY 
Ble 003742 100375 BPL 2$ BR IF NO. 
®13 003744 112577 175242 MOVB = (RS)+, 2TPDBR jPRINT CURRENT CHAR 
814 003750 001357 BNE 4 F NOT ZERO KEEP PRINTING! 
81S 003752 O1260s 2$: MOY -° (SP)+,R5 END OF OUTPUT. RESTORE RS 
Big 003754 o00002 RTI GO HOME 


es 
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817 j SOO heceweseweeenseetence 
818 
819 003756 010346 .INSTR: MOV R3,-(SP) ;SAVE R32 ON STACK 
820 003760 O10446 MOV R4'-(SP) :SAVE RY ON STACK 
821 003762 017637 000004 oD4000 MOV a4tsP). MSG 
Bee 003770 O62766 000002 900004. ADD #2, 4(SP) 
823 003776 104402 -INST1: TYPE 
824 o04000 o00000 -MSG: 0O 
8eS 004002 O1e704 007256 MOV #INBUF , RY 
826 004006 012703 000007 MOV #7,.R2 
827 OO40l2 105777 175166 1$: TSTB © aTKCSR 
828 OO4016 100375 BPL 1$ 
8239 004020 117714 175162 MOVB § aTKDBR, (RY) / 
830 OO4024 142714 000200 BICB #200, (RY) 
831 004030 122427 900015 CMPB. (R4)4. 815 
B22 004034 001417 s BEG + INSTR 
833 004036 105777 175146. 2s: TSTB = gTPCSR 
834 OO4042 100375 BPL 2s 
83S OO4044 617777 175136 175140 MOV JTKDBR, JTPOBR 

> 836 O04 005303 DEC R3 
837 OO40S4 001356 BNE 
g 4056 012604 MOV (SP)+,R4 
839 OO4060 012603 ; MOV (SP)+'R3 
840 OO40b2 104402 ooss70 «(C- _ J INSTE: TYPE 
841 OO4066 010346 MOV 3,-(SP) 
B42 70 O10446 MOV R4’-(SP) 
843 004072 000741 BR Tl 
844 004074 012604 INSTR: MOY . (SP)+,R4 :RESTORE RY 
B45 004076 012603 MOV (SP)+°R3 :RESTORE R3 
Bb 100 90000 RTI 
eg ;CONVERT ASCII STRING TO OCTAL 
850 P 
851 o04102 oO10S46 .PARAM: MOV RS,-(SP) 
852 OO4104 O1044E MOV RY’ -(SP) 
853 OO4106 O1660S o00004 MOV 4($P) RS 

1 854 OO411e 012537 Oo0427e ‘MOV (RS)+,LOLIM \ 
BSS DOW 16 012537 004274 MOV (RS)+;HILIM 
856 122 37 004276 MOV (RS)+;DEVADR 
857 004126 112537 004300 MOVB  (RS)+,LOBITS 
858 004132 37 004301 MOVB (RS) +. ADRCNT 
859 004136 010566 o00004 MOV RS, 4( SP) 
860 o04142 PARAMI: CLR RS 
861 O04144 04 007256 MOV #INBUF , RY 
862 OO41SO 122714 O00015 CMPB saw 15, (R49) b 
BP pba ibe reat 000069 1$ aaa PRas eco 
865 nyt Ee BLT PARERR 
BEE OO4164 121427 OODDE7 CMPB =—s-« (R44) , #67 
867 004170 O030!e - BGT RER 
B68 004172 142714 OD00E0 BICB #60, (RY) 
869 OO4176 152405 BISB (R4Y3+,RS 
870 OO4200 122714 oD0015 CMPB ssa# 1S, (R14) 
871 O04204 O61406 BEQ LIMtTS 
872 OO42e06 006305 ASL 
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GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


BR 
PARERR: INSTER 
BR PARAM 


; TEST TO SEE IF NUMBER IS WITHIN LIMITS 


LIMITS: CMP RS HILIM 
BHI PARERR 
CMP RS, LOLIM 
BLO PARERR 
BITB LOBITS,RS 
BNE PARERR 


;STORE NUMBER AT SPECIFIED ADDRESS 
MOV DEVADR , R4 


1$: MOV RS, (R4YS+ 
ADD #2°RS 
DECB § ADRCNT 
BNE 


1$ 
MOV (SP)+,R4 
MOV (SP)+,RS 


RTI 
LOLIM: O 
HILIM: O 
DEVADR: O 


LOBITS: 0 
ADRCNT=LOBITS+1 
;SAVE PC OF TEST THAT FAILED AND RO-RS 


.SAVOS: MOV 4(SP), SAYPC :SAVE R? (PC) 
;SAVE RO-RS 

SVOS: MOV RS, SAVRS ;SAVE RS 
MOV RY’ SAVRY SAVE RY 
MOV R3;SAVR3 SAVE R3 
MOV Re, SAYRE SAVE Re 
MOV R1'SAVRI SAVE R1 
MOV RO; SAVRO :SAVE RO 
RTI : 
RESTORE RO-RS 

.RESOS: MOV SAVRO, RO RESTORE RO 
MOV SAVRI ‘RI RESTORE R1 
MOV SAVR2; Re RESTORE Re 
MOV SAVR3, RS RESTORE R3 
MOV SAVRY’ RY RESTORE RY 
MOV SAVRS; RS tRESTORE RS 
RTI ; LEAVE 
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330 ;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
932 : 
933 004374 104402 O0SS74 .CONVR: TYPE MCRLF 
934 o04400 O1004% -CNVRT: MOV RO, -(SP) 
935 o04402 O10146 MOV R1'-(SP) 
936 OO4404 010346 MOV R3;-(SP) 
937 oO04406 O10446 MOV Ru! =(SP) 
938 OO4410 O10S46 MOV RS | ~(SP) 
939 N04412 01760: o0001e MOV 312(SP),R1 
940 OO4416 O62766 O00002 on0012 ADD #2, 12(SP) 
941 OO4424 012137 OO04616 MOV (R1)+, WROCNT 
942 004430 112137 004620 1$: MOVB = (R1)+, CHRCNT 
943 004434 112137 O046el1 MOVB — (R1)+, SPACNT 
944 004440 013137 O04b22 MOV a(R1)+, BINWRD 
945 OO4444 122737 000003 004620 CMPB —s- #3, CHRCNT 
946 O044S2 001003 BNE 24 ; 
947 OO44S4 042737 177400 o04622 BIC #177400, BINWRD 
948 OO4462 013704 OO4b22 2S: MOV BINWRD,RY 
949 OO4466 113705 O046e0 MOVB = CHRCNT._RS 
950 004472 012700 OO014I6 MOV #TEMP, RO 
951 oO04476 010403 3$: MOV 4 
9S2 O04S00 042703 177770 BIC #177770, R3 
953 004504 062703 O00060 ADD #060, R3 
954 004510 110320 MOVB  R3, (RO)+ 
955 O04Sl2 O00e4! CLC 

004514 OO&004 ROR RY 
957 004516 000241 CLC 
958 O04Se0 O06004 ROR RY 
959 o004Se2 00024) CLC 
960 O04524 O06004 ROR RY 
961 004526 005305 ; DEC RS 
962 004530 001362 BNE 3$ 
963 004532 012703 007320 MOV #MDATA,R2 
964 004536 114023 4g: MOVB  -(RO), (R3)+ 
965 004540 105337 oD46e0 DECB = CHRCNT 
966 004544 001374 BNE 4§ 
967 004546 105737 004621 TSTB = SPACNT 
968 O045S2 001405 BEQ 
969 004554 112723 oD0040 S$: MOVB #040, (R3)+ 
970 004560 105337 00462] DECB = SPACAT 
971 004564 001373 BNE 
972 O04566 105013 6S: CLRPB =. (R33) 
$73 004570 104402 007320 TYPE MDATA 
974 004574 005337 OO46I6 DEC IRDCNT 
975 600 001313 BNE 1$ 
976 O04602 012605 MOV (SP)+,RS 
$77 012604 MOV (SP)+;R4 
978 9046 12603 MOV (SP)+'R3 
979 004610 012601 MOV (SP)+'R1 
980 O04612 012600 MOV (SP)+.RO 
981 004614 oO0000e RTI 
982 004616 O00000 WROCNT: O 
983 004620 o00000 CHRCNT: 0 
ge4 004621 SPACNT=CHRCNT+1 
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BINWRD: O 


; TRAP pirat SERVICE 
; ARGUMENT OF TRAP _IS EX 


XTRACTED 
OFFSET TO OBTAIN POINTER 


;AND USED AS 
:T0 SELECTED SUBROUTINE 


.TRPSR: MOV (SP) ,-(SP) 
SUB ° 
MOV a(SP), (SP) 
TRPOK: ASL (SP) 


BIC #177001, (SP) 
ADD #. TRPTAB, (SP) 
MOV a(SP), (SP) 
IMP a(SP)+ 


;ERROR HANDLER 


-HLT: JSR SUR 
BIT Aste aSWR 
BEQ XBX 
TSTB = aTPCSR 
BPL XBX 
MOVB #207, aTPDBR 
XBX: BIT #SW13, aSWR 
BNE T 
CMP (SP), LSTERR 
BEQ 
MOV (SP) ,LSTERR 
CLRB. — ERRFLG 
1S: SAVOS 
MOV (SP) RS 
SUB #2,R5 
MOV (RS) ,R4 
ASL 4 
ADD (RS) ,R4 
ASL RY 
BIC #177001 RY 
ADD #. ERRTAB,R 


MOV trays, ERRMSG 
MOV (RA) +, DATAHD 


MOV (R4) DATABP 
TSTB = ERRFLG 
BEQ TYPMSG 
TST DATABP 
BNE TYPDAT 
\ TYPMSG: TYPE § ,MCRLF 
TYPE MCRLF 
TST LOCK 
BEQ 1$ 
TYPE , MASTEK 
1S: TYPE MTSTN 
CNVRT  'XTSTN 
YPE MERRPC 


+ Hf PC of RETURN 
PC OF TRAP 


:¢ RP 

;MULTIPLY TRAP ARG BY 2 

;CLEAR UNWANTED BITS 

‘POINTER TO SUBROUTINE ADDRESS 
: SUBROUTINE ADDRESS 

:G0 TO SUBROUTINE 


;CHECK FOR al SWR 
;BELL_ON ERR 
BR IF _NO BEL 


EADY. 
‘DON N’T WAIT * TTY NOT READY. 
"PUSH A BELL AT THE TTY. 
; DELETE ERROR “PRINT OUT? 
;BR_IF NO PRINT OUT WANTED. 
aR THIS ERROR FOUND LAST TIME? 


IF YES 
;RECORD BEING HERE 
PREPARE HEADE 
SAVE ALL PROC REGISTERS 


:GET THE PC 0 
;GET ADDRESS OF TRAP CALL 
;GET_HLT LE aa UCTION 


NTER 
‘GET ERROR Weare 
:GET DA ate HEADRER 
;GET DATA TABLE 
; TYPE_HEADREER 


:BR YES 
:DOES DATA TABLE EXIST? 
:BR IF YES. 


;SHOW IT 
TYPE PC. 
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EQ4 


,ERTABO 
a, 
ii ERRFLG 


RRMSG 
WRKO.FM 


DATAHD 
TYPDAT 


DATABP 
RESREG 


#SENDAD, d#4e 
1$ 


aSWR 
EXITER 
e(SP),RO 


ERRCNT 
t cemaane 
#SW10, JSWR 


NEXT, RETURN 
#sTatk. SP 
RETURN 


6,2 


3,2 


ae ee a oe ee ee 8 Ce 


0043 
- 


GIVE AC 
:NO MORE HEADER UNLESS NO DATA TABLE. 
i1S Te. AN ERROR MESSAGE? 


Y 
; ERROR MESSAGE 
;DATA HEADER? 

R_IF NO 
PE 

DATA HEADER 
‘DATA TABLE? 
BR IF NO. 


DATA TABLE 
RESTORE PROC REGISTERS 
:IF ACT-11 AUTOMATIC MODE, HALT!! 


;HALT_ON ERROR? 
:BR IF NO HALT ON ERROR 


SAVE RO 
; SHOW ERROR PC IN DATA LIGHTS 


;GET RO 
; UPDATE R's COUNT 
;GOT Q TOP OF TEST? 


YES 
ieaT Ne NEXT TEST? 
:SET FOR NEAT TEST 
‘GOTO SPECIFIED TEST 
; RETURN 


TSTN 
;ENTER HERE ON POWER FAILURE 


#RESTART, 24 


:;SET UP FOR POWER UP TRAP 
HALT ON POWER DCWN NORMAL 


;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


CNVRT 
TYPE 
MOVB 
TST 
BEQ 
TYPE 
ERRMSG: O 
WRKO.FM: 
TST 
SEQ 
TYPE 
DATAHD: O 
TYPDAT: TST 
BEQ 
CONVRT 
DATABP: 0 
RESREG: RESOS 
HALTS: CMP 
BEG 
2 
1$: PJSHRO 
MOV 
HALT 
POPRO 
EXITER: INC 
BIT 
BNE 
BIT 
BEG 
MOV 
1$: MOV 
JMP 
2s: RTI 
ERTABO: 1 
.BYTE 
SAVPC 
XTSTN: 1 
.BYTE 
-PFAIL: 
MOV 
HALT 
GR 
RESTAR: 


MOV 
MOV 
MOV 
CLR 


#.PFAIL, 24 
aSTACK, SP 
CSR, WRI 


_—— ee eee wee oe ee ee oe 


;SET UP_FOR POWER FAILURE 
sReSer My’ STACK POINTER 


RE Rl 
READY FOR TIMMER 
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1097 005274 o0S237 O0141E INC TEMP sPLUS ONE TO THE TIMER! 

1098 005300 001375 BNE 4 :BR IF MORE TO GO 

1099 005302 104402 005577 TYPE = | MPFAIL -TYPE THE MESSAGE 

1100 005306 104411 005332 CNVRT  ‘PFTAB :TELL WHAT TEST TO RETURN TO. 

1101 005312 105037 001325 CLRB = ERRFLG :START CLEAN 

1102 005316 005037 001234 CLR LSTERR — 

1103 005322 005011 CLR (RL) ‘CLEAR MAINT BITS 

1104 005324 104412 MSTCLR -START CLEAN UP OF DEVICE 

1105 005326 000177 173662 IMP JRETURN ‘START DOING THAT TEST AGAIN. 

11068 005332 000001 PFTAB: 1 

1197 005334 903 oo2 -BYTE 3,2 

1108 005336 001226 TSTNO 

1110 005340 DELAY: 

1111 005340 012777 900020 174044 MOV #20, JDMPOY : 

lli2 005346 104414 ROMCLK ;NEXT WORD IS_INSTRUCTION, ROMCLK PC=S304 

1113 005350 121111 121111 :POKE CLOCK DELAY BIT 

1114 005352 1$: 

1115 005352 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 

1116 005354 121254 121224 : PORT4+ IBUS#11 

1117 005356 032777 o90020 174026 BIT #BIT4,aDMPO4 § ;IS CLOCK BIT SET” 

1118 005364 001772 BEQ 1$ :BR IF NO 

1113 5366 000002 RTI 

llel 905370 -MSTCLR: 

lle2 005370 152777 000100 174010 BISB  #BIT6,30MCSRH ;SET MASTER CLEAR 

1123 005376 142777 000300 174002 BICB #BIT6!BIT7,aDMCSRH ;CLEAR MASTER CLEAR AND RUN 

1124 005494 oo9002 RTI ; RETURN 

1126 OOS4O6 -ROMCLK: 

112? OOS406 152777 o00002 172772 BISB  s#BIT1,3DMCSRH ;SET ROMI 

11°08 005414 013677 173774 MOV a(SP)+,aDMPO06 LOAD INSTRUCTION IN SELS 

1129 005420 062746 05002 ADC #e,-(SP) :ADJUST STACK : 

1130 O0S424 032777 O00100 173550 BIT #SWO6, ISWR ‘HALT IF SWOG =1 

1131 005432 001401 BEQ 1$ :BR IF SWOS =0 p . 

1132 005434 o00000 HALT “HALT BEFORE CLOCKING INSTRUCTION 

1133 005436 152777 000003 173742 13: BISB  w#BITL!BITO,3DMCSRH -CLOCK INSTRUCTION 

1124 005444 1429777 900007 173734 BICB #BIT2!BITI!BITO,aDMCSRH ;CLEAR ROMO, ROMI, STEP 

1136 005452 ooo002 RTI ‘ 

1137 oos4s4 .DATACLK: 

1138 005454 012637 OD01416 MOV a(SP)+, TEMP ;PUT TICK COUNT IN TEMP 

1139 005460 062746 oO00002 ADD #2, -(SP) ‘ADJUST STACK 

1140 005464 1520777 000020 173714 1S: BISB w#BiT4Y.aDMCSRH ;SET STEP LU ? 

1141 005472 027777 173706 173704 CMP DDMCSR,JOMCSR WASTE TIME 

1142 005500 142777 O00020 173700 BICB w#BIT4,3O0MCSRH ;CLEAR STEP LU 

1143 005506 005337 O01416 DEC TEMP :DEC TICK COUNT 

1144 005512 001364 BNE 1$ :BR IF NOT DONE 

1145 005514 o0000e T : RETURN 

1146 005516 000001 2 BLKW 1 

1148 005520 TIMER: 

1149 005520 013637 O0i4i6 MOV a(SP)+, TEMP ;MOVE COUNT TO TEMP 

1150 gosse4 062746 ocodcde , ADD #2,-(SP) :ADJUST STACK 

1$: ; 
i152 005530 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
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1153 905532 021364 021364 ;PORT4+IBUS* REG11 
1154 005534 032777 o00902 173650 BIT 82, JDMPOY !IS PGM CLOCK BIT CLEFR? 
1155 005542 001772 BEQ 1$ :BR IF YES 
1156 ooss44 2s: 
1157 O605544 104414 ROMCLK :NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
1158 O0SS46 021364 021364 :PORTY+IBUS* REG] 
1159 005550 032777 oOD00002 173634 BIT #2, JOMPO4 ?IS PGM CLOCK Bit SET? 
1160 005556 001372 BNE 23 ‘BR IF YES 
1161 005560 005337 o01416 DEC TEMP :DEC COUN 
1162 005564 001361 SNE 1$ -BR IF WoT DONE 
1163 ooss&& 000002 RTI : RETURN 
1165 005570 o20040 000077 MQM: ASCIZ ¢ 
(2) 905574 905015 000 MCRLF: .ASCIZ <15><12> 
(2) 905577 377 053520 oe0122 MPFAIL: .ASCIZ (373) /PRR FAILED. RESTART AT TEST - 
(2) 905635 377 047105 020104 MEPASS: .ASCIZ (377) END PASS DZDMG / 
(2) 905657 377 o0012e MR: LASCIZ <377>/R/ 
(2) 005662 047377 Oe0117 o4e504 MERR2: :ASCIZ <377>/NO DEVICES PRESENT. / 
(2) 005707 377 O47111 052523 RR3: .ASCIZ <377>/ INSUFFICIENT DATA! / 
(2} 005733 377 042524 O52le3 MTISTPC: .ASCIZ <377>/TEST PC-/ 
(2) 005745 377 047514 O45503 MLOCK: .ASCIZ (372) /L.00k ON SELECTED TEST/ 
(2) 005774 051503 035122 900040 CSRX: .ASCIZ /CSR: 
(2) 006002 O42526 035103 o00040 MV SCI2 /VEC: Pg 
(3) 006010 20 051523 051505 MPASSX: .ASCIZ /PASSES: / 
(2) 906021 105 051122 051117 MERRX: .ASCIZ /ERRORS: / 
(2) 006032 o42524 052123 047040 ASCIZ cTEST NO: / 
(2) 006044 900052 MASTEK: .ASCIZ 
(2) OO06046 051777 oOS210S oS51440 -ASCIZ (397) /SET SWITCH REG TO DMC11°S DESIRED ACTIVE. - 
(2) 006121 120 035103 OO00040 MERRPC: .ASCIZ /PC: / 
(2) 006126 Oe0212 Oe0040 Ooe0040 XHEAD: .ASCII <2l2>/ MAP OF DMC11 STATUS/ 
(2) 006165 377 O2e0040 oe0040 ASCII <377>/ wenn nnnnn------- 
(2) O06224 Oe20e12 OS0040 0201 ASCII (212)/ PC CSR STAT! STAT2  STAT3v 
(2) O0627& 926777 OGee4sS Oe64ss ASCIZ (377) /en---- 0 wnaen- see ene  eeeee- 0 ------ / 
(2) 006352 044377 053517 O46440 NUM: * .ASCIZ (aoo) Ou MANY DMC 11" S TO BE TESTED?/ 
‘2) OO6412 041777 051123 O4044O CSR ASCIZ <377>/CSR SS?/ 
(2) 006430 053377 O4150S 047524 . SCI2 <377>/VECTOR ADDRESS?/ 
(2) OOG4S1 051102 oso040 PRIO ASCIZ <377>/BR PRIORITY LEVEL? (4.5 
(2) 006510 020106 O46504 CRAM ASCIZ <377>/IF DMC HAS CRAM (M8204) ee ye IF CROM (M8200) TYPE “N™ 
(2) O06606 053777 O44510 044102 MODU ASCIZ <377>/WHICH LINE UNIT? ree NONE TYPE “n* IF M@201 TYPE "1", IF M 
(2) 006720 044527 041524 LINE ASCIZ <377>/SWITCH PAC#1 (DDCMP LINE #)? 
(2) 006 051777 O44527 041524 B ASCIZ (377) /SUITCH PACwe (BM873 BOOT ADD) °/ 
(2) 007016 020123 044124 CONN ASCIZ <377>/IS THE LOOP BACK CONNECTOR ON?. 
(2) 007056 047377 Oe0117 oO4eSo4 NOACT: .ASCIZ <377>/N0 DEVICES ARE SELECTED/ 
(2) 007107 377 OS14le 051127 SWMES: .ASCIZ (377) «12> /SHR= / 
(2) 007117 116 053505 020077 SWMES1: .ASCIZ /NEW? 
(2) 007125 377 042377 O41515 CONERR: .ASCIZ (399) (377>/0NC1L CONFIGURATION ERROR PC: / 
(2) 007167 377 OS410S5 O42520 CNERR: .ASCIZ (377 » EXPECTED FOUND / 
(2) 007210 oe404O O46504 024503 DOMCM:  .ASCIZ / (DMC) 
‘) 007220 Oe4040 O46513 024503 KNCM: SASCIZ / (KM) ; 
3 ; 
(2) 007230 900005 XSTATO: S 
1166 007232 006 903 -BYTE 6,3 
1167 007234 OO01e46 TEMP 1 
1168 007236 006 002 .BYTE 6,3 
1169 007240 o012ec0 TEMP2 
1170 007242 00 093 ayYtm 6&2 
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ITILITIES (TYPEOUT, ERROR, SCOPE, ETC 
TEMP3 
.BYTE 6,2 
TEMPY 
BYTE 6,2 
TEMPS 
EVEN 
sBUFFERS FOR INPUT-OUTPUT 
INBUF: 9 
2.440 
MDATA: O 
=. +40 \ 
;ROUTINE USED TO SHANGE SOFTWARE SWITCH | 
!REGISTER USING THE CONSOLE TERMINAL 
CKSWR: CMP #SWREG, SWR ;15 THE SOFT SWR BEING USED” 
BNE CKSWRS R IF 
CHP #7, STKOBR SRS CTR, G TYPED? (7 BIT ASCII) 
CMP #207, JTKDBR WAS CTRL G TYPED? (@ BIT ASCII) 
BNE CKSWRS :BR IF NO 
1S: MOV Re, -(SP) ‘STORE Re 
MOV R3;-(SP) ; STORE RS 
MOV 4’-(SP) :STORE R 
MOV #-1,SWFLG :SET SOFT TYPE OUT FLAG 
CKSWRI: CLR -CLEAR NEW SWR CONTENTS 
MOV =1,R4 ;SET FLAG TO ALL ONES 
TYPE , SWMES :TYPE “SWR= 
CKSWR2: CNVRT : TYPE OUT PRESENT CONTENTS 
SOF TSW ; OF Soft si WITCH REGISTER 
CKSWR3: TYPE SWMES 1 : TYPE " 
CKSWR4Y: JSR PC. INCHAR : GET RESPONSE 
CMP #15,R3 ; WAS IT A CR? 
BEG c$ :BR IF YES 
CMP #12,R3 :WAS IT @ LF? 
BEQ 4§ BR IF YES 
CMP #25,R3 WAS IT CTRL U? 
BEQ CKSURI :BR IF YES(START OVER) 
CMP #7. R3 :IF CNTL G GET NEXT CHAR 
BEG CKSWRY . 
CLR R4 :1T NusT BE A DIGIT SO CLR FLAG 
BIC #177770,R3 :ONLY O-7 ARE LEGAL SO MASK OFF BITS 
ASL Re :SHIFT Re 3 TIMES 
ASL Re 
ASL Re 
BIS R3,R2 ;ADD LAST DIGIT 
BR CKSWRY :GET NEXT CHARACTER 
ug: MOY #.START.&(SP) LF WAS TYPED $0 GO TO START 
cs: TST R4 :TS FLAG CLEAR? 
BNE 6$ ‘IF NOT DON’T CHANGE SOFT SUR 
MOY R2, JSWR IF YES THEN WRITE NEW CONTENTS TO SOFT SUR 
&$: CLR SWFLG :CLEAR TYPEQUT FLAG 
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lee? O07S46 Oie604 MOV (SP)+,R4 ;RESTORE RY 
le28 007550 012603 MOV (SP)+,R3 :RESTORE R3 
lee3 0075Se Ole26Ce MOV (SP)+,Re ;RESTORE Re 
1530 007584 000207 CKSWRS: RTS PC ;RETURN 
iss6 007SS& o00000 SWFLG: 0 

1234 007560 105777 171420 INCHAR: TSTB aTKCSR 

1235 007564 100375 BPL X.. 

e 007566 017703 171414 MOV JTKDBR,R3 

1237 7S7e 108777 1714ie2 TSTB JTPCSR 

1238 007576 100375 BPL = 

1239 007600 010377 171406 MOV R3, aTPOBR 

1240 Q07604 QO4e703 000290 BIC #BiT7,R3 

eH 0C7610 000207 RTS PC 

1243 GO076le 00000i SOFTSW: 1 

ie44 007614 396 coe .BYT 

1e4S OO7E16 OOCi76 SWRE 


TE 6,2 
a 


005737 


ee 
1450 


005737 


001306 
007056 


001316 


001700 
001500 
001702 
001316 


001320 


001402 
000002 


o0d04e 


001320 
001329 


00132e 
001306 


001374 


001406 
091410 
001412 
001414 


001376 
001406 
001402 


001236 


fu 


JO4 
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ROUTINE USED TO “CYCLE” THROUGH UP 10 16 OMC11’"S 
;THIS ROUTINE SETS UP THE CONTROL tk FOR THE DIAGNOSTIC 


AND RUNS THE SPECIFIED DMC11’S. 


ROUTINE #MUST# 


HIS 
:BE RUN FIRST BEFORE ENTERING THE ptacnostic FOR THE 


; SETUP NECESSARY. 


MOV #0M. MAP, CREAM 
MOV #CNT. MAP. MILK 
BIT RUN, DMACTV 


MOV aren RO 


MOV ne DMCSRH 
MOV OMCSRH, DMCTL 
OMCTL 
MOV OMCTL,DMPO4 

MPO4 
MOV BHP oY DMPOG 
ADD RO, OMPOG 
MOV OMRVEC, DMRLVL 


MOV DMTVEC, OMTLYVL 
ADD RO, OMTLVL 


IT #SWO1,STRTSW 
7$ 


TST deve 


ee ee ee 


TST DMACTY SARE ANY DMC11'S TO SE TESTED” 
BNE 1$ :BR IF OK. 

TYPE  ,NOACT "NO DMC11*S SELECTED! ! 

HALT -ISTOP THE SHO 

BR .-2 : DISQUALIFY CONT. cu. 

CLC :CLEAR PROC. CARRY BIT 

ROL RUN !UPDATE POINTER 

ADC RUN CATCH CARRY FROM RUN 

ApS MILK :UPDATE POINTER 

ADD He c CREAM ‘UPDATE ADDRESS POINTER. 

CMP son MAP+200, CREA aft 

NE 2$ KEEP GOING; NOT ALL TESTED FOR. 


; RESET ADDRESS POINTER. 
;RESET PASS COUNT POINTER 
‘IS THIS ONE ACTIVE? 


NO 
iGET ADDRESS POINTER 
T PASS COUNT POINTER 
tap seater CTRL. REG 


;LOA 

:CLEAR UNWANTED BITS 
;LOAD STATI 

:LOAD STATe 

;LOAD STATS 

; LOAD PASS yt! 


;LOAD ERROR COUNT 
‘SAVE CORE THIS WAY! 


:PTY LVL 
:TX VEC 
1X LY 


515 TEST NO. SELECTED 
'OR IF NO 


;RUNNING IN AUTO MODE? 


o 
ee 


KO4 
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1302 010120 oo104s BNE 7$ :BR IF YES 
1303 OlG122 104402 905574 TYPE .MCRLF 
1304 010126 104403 INSTR »GET TEST NO. 
130S 010130 006032 MTSTN , 
1306 010132 104405 PARAM 
1307 010134 o00001 1 
1308 010136 001000 
130$ 010159 O01226 TSTNO 
1310 010142 ue .BYTE O 
1311 010143 001 ata i 
1312 010144 012700 o1s765 MOV #TST1,RO 
1313 O10150 022710 cs: CMP tpt) +! (RO) ;CMP FIRST WORD TO 12737 
Hie gles ulGee Be ORR ae or or sie 
1316 bible Bod 60 o0l226 ooc002 CMP Hines. 2001 :DOES TSTNO MATCH? 
1317 010164 001014 BNE 6 F NO 
1318 O10166 O22760 001226 oD0004 CMP #TSTNO,4(RO) iTS LAST WORD OK? 
1319 010174 OO1010 BNE : N 
1320 910176 019037 o01214 MOV RO, RETURN -IT IS A LEGAL TEST SO 09 IT 
1321 01020 ose 005657 TYPE M 
1322 0192 42737 O90002 o01226 BIC ¥SWO1, STRTSW 
1303 010214 Ooo04ie BR 8S 
1324 010216 005720 &$: TST (RO)+ :POP RO 
1325 010220 o20027 oc2l44e CMP RO, #TLAST+10 “AT END YET? 
1326 910224 001351 BNE cs :BR IF N 
1227 010226 104402 o0sS70 TYPE MOM ‘YES ILLEGAL TEST NO. 
1328 010232 900730 BR 4g : TRY AGAIN 
1330 010234 012737 O15766 o01214 7$: MOV #TST1, RETURN ;PREPARE RETURN ADDRESS 
1321 019242 013701 601404 gs: MOV DMCSR’R1 “Ri = BASE DMC11 ADDRESS 
1332 O:0246 000177 170742 IMP ORE TURN !GO START TESTING. 
1334 
1335 ;ROUTINE USED TO “AUTO SIZE” THE DMC11 
133€ :CSR AND VECTOR. 
337 ;NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 
133e : ADDRESS RANGE (180000: 1 
1333 : AND THE VECTOR MAY BE ARY WHERE IN THE 
1340 : FLOATING VECTOR MANGE (300:770) 
1342 . 
1343 010252 AUTO. SIZE: 
1344 010252 oo0005 RESET ; INSURE A BUS INIT. 
1345 010254 012702 001500 CSRMAP: MOV #DM. MAP, Re : LOAD MAP POINTER. 
1346 010260 o0S022 18: CLR (R2)+ :2ERO ENTIRE MAP 
1347 O1026e 702 901700 CMP #OM. END, R2 ALL DONE? 
1348 O10eb 001374 BNE 1$ :BR IF NO 
1349 010270 001310 Q CLR DMNU SET OCTAL NUMBER OF DMC11°S TO O 
1360 010874 012702 001500 NOV aDH MAP ,Re iRe POINTS T9 DMC MAP 
13 Ot 304 os, BoSat 001236 IT wSHOO, STRTSW : QU SITIONS’ 
ance cane i. HE Ae Sxle question 
1322 sneee WEEE Otol 001256 MOV #1, TEMPS :START WITH 
1356 010326 104403 INSTR 
1357 010330 o063S2 UM 


010434 


Oo 

wm 
WWE 
vO tuenvo 


053 
0536 


000763 


001252 
005874 


001256 


001254 


001254 
( 


011734 
000024 


000027 
000011 


170777 


011734 
000131 


000116 
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001310 


12s: 


108: 


SOs: 


— 


—— ee ee ee 


LOY 


EMP3 , DMNUM 
CRLF 


4-O 


EMPY, (Re)+ 


0 
1 
TEMPY, (R2) 
PC, INTTY 
#24, R3 

Sos 

827,R3 

50$ 

#11,R4 

R3 

RY 

4 
$170777,R3 
R3, (R2) 


10$ 

PC nity 
#131, 

#1i6,R3 © 

16$ 


(TYPEOUT, ERROR, SCOPE, ETC) 


;DMNUM = 


: TYPE WHICH DMC 
: TEMPS IS WHICH 


HOW MANY 
1S BEING CONE 
DMC 


;STORE CSR IN MAP 


;STORE VECTOR IN MAP 


;ASK WHAT BR LEVEL 
;GET RESPONSE 


‘BR IF LESS THAN 4 


:BR IF GREATER THAN 7 
:R4 = NUMBER OF SHIFTS 
R3 LEFT 


NWANTED BITS 
PUT BR LEVEL iN STATUS MAP 
: CONTINUE 


;RESPONSE IS OUT OF LIMITS 
;TRY AGAIN 


;DOES DMC HAVE CRAM? 
;GET REPLY 


; YES 
;NO 
sNOT 9 Y OR N 


cones 


Typ 
‘Ask AGAIN 


on ee a i a ee 
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1414 010540 OS2712 100C00 9$: BIS #BITIS, (R2) :SET BIT iS IF CRAM 

141S 010544 104402 ibs: TYPE 

1416 010546 O06606 MODU sASK WHICH LINE UNIT 

1417 010550 004737 011734 JSR PC_INTTY GET REPLY 

1418 010554 022703 000021 CMP #21,R3 ed 

1419 010560 001417 BEQ 30$ te 

1420 010562 022703 o00022 CMP #22,R3 :"2 

1421 010566 OO141e BES 318° ~"o 

1422 010570 O22703 o00116 CMP #116,R3 .N 

1423 010574 001403 3EQ 323 | 

1424 010576 104402 TYPE id 

1432 Oloeoe Shos60 HR (1b yh oe 

1427 010604 OS2722 010000 323: BIS #B1T12,(R2)+  :SET BIT le IN STAT2 IF NO LU 

1428 010610 deeeee CHP {Re)+, (Re)+ :POP OVER STAT2 AND STAT2 

1430 010614 52712 o20000 318: BIS #B1T13, (Re) ;SET BIT 13 IN STAT2 IF Me2d2 

1432 010622 OO7016 CONN :ASK IF LOOP-BACK IS ON 

1433 910624 004737 011734 JSR PC, INTTY GET REPLY 

1434 010630 022703 000131 CMP #131,R3 :Y 

1435 010634 001406 BEQ 17$ 

1436 010636 022703 o0d11E CMP $116,R3 3N | ' 

1437 010642 001406 EQ 183 : 

1438 O10644 104402 TYPE eon 

1439 010646 005570 MQM :IF NOT Y OR N TYPE “? 

1440 010650 000763 BR 30S TRY AGAIN 

4) 01065¢ 05272e 040000 178: BIS #81T14,(R2)+ | ; TURNAROUND IS CONNECTED 

1443 010660 pae7 es 040000 18S: BIC #BIT14,(R2)+ | ;NO TURNAROUND 

144S 010664 104403 INSTR 

1446 010666 006720 LINE 

1447 010670 104405 PARAM 

1443 010672 O00000 0 

1449 01 000377 377 

1450 010676 001254 TEMPY 

1451 010700 900 .BYTE 0 

1452 010701 001 "BYTE 1 

1453 010702 113722 001254: MOVB. TEMP4, (R2)+ :STORE SWITCH PAC IN MAP 

1454 010706 104403 INSTR 

1455 010710 006756 - BM . 

1456 010712 104405 

1457 010714 O000 - 

1458 010716 000377 : 

1459 010720 001254 

1460 010722 000 

1461 010723 001 

ies Gleren Hires Oe Do aaa 

1464 010732 605337 o01252 33: :DEC DMC COUNT 

1465 010736 001205 ‘BR IF MORE 70 DO 

1466 010740 000137 011350 , 13$ : CONTINUE 

1467 010744 012701 160000 7$: MOV #160000, R1 :SET FOR FIRST ADDRESS TO BE TESTED 
27- O11442 oocoo4 MOY #63. 0% : - 

1468 010750 012727 0 0 63,084 SET FOR NON-EXISTANT DEVICE TIME OUT 

1469 010756 005011 2s: CLR (R13 :CLEAR SELO 








| | NOY 
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1470 010760 005711 TST — (RIL) SIF DMC11 DMCSR SB O 
1471 Ol 001162 BNE «s-:38 'TF_NO DEV; TRAP TO 4, IF NO BIT & THEN NO OMC: 
1472 010764 O050€1 o00006 CLR —s«&B LR) CL L 
1473 010770 005761 O00006 TST ~—s- BRI) ‘TF DMC11 THEN DMRIC S/B =0! 
1474 010774 001155 BNE 3 'BR IF NOT DMC11 
1475 010776 012711 o02000 MOV —«sWBITIO, (R1) ‘SET ROMO 
7B 11008 06061 990904 CLR HCL) 'CLEAR SELY 
147? 011006 012761 125252 000006 MOV  #125252,6(R1) {WRITE THIS TO SEL6 
| 1478 011014 OS2711 O20000 BIS #BIT13, (RI) Ud 
1478 011020 022761 leSeS2 OO0004 CMP = #125253, 4(R1) WAS IT WRITTEN? 
1480 011926 001004 BNE 2 ‘IF NO IT IS NOT CRAM 
1481 011030 052762 100000 900002 . BIS  _#B1T1S,2(R2) {SET BITIS IF CRAM 
1482 011036 O00421 , BR 
| 1483 O11040 012711 001000 218: * MOV —«#BIT9, (RI) ;SET ROMI 
| 1484 011044 012761 100400 oD0006 MOV #100400.6(R1) PUT INSTRUCTION IN SEL6 
| 1485 011052 012711 001400 : MOV -« #BITS9!BITS. (R1) ;CLOCK INSTRUCTION (MICRO PROC PC TO 0) 
1486 011056 012711 002000 MOV #81T10, (R13 ;SET ROMO 
1487 O11062 022761 063220 O00006 CMP «= w632206(R1) 1S IT CROM 
1488 011070 O01404 : BEQ sas 'BR IF YES 
1489 011072 022761 177777 o00006 CMP «#1, 6(R1) tIF = -1 IT HAS NO CROM 
480 011100 001113 hi BNE '8R IF NOT OMC11 
149] : “AT THIS POINT IT IS ASSUMED THAT R1 HOLDS A DMC11 CSR ADDRESS. 
| 3492 011102 o10122 43g: MOV re ;STORE CSR IN CORE TABLE. | 
' 1493 011104 012731 o01000 iss: mov wBtT9. (RI) ?CLEAR LINE UNIT LOOP 
| 1494 O11110 005081 00004 CLR —- 4CRI) 4 
| 1495 O11114 012761 122113 oo0006 MOV #122113,6(R1) LOAD INSTRUCTION (CLR DTR) 
1436 “Ol11g2 OSe711 000400 BIS _ #BIT@. (RI) CLOCK INSTRUCTION 
1497 011126 012761 021264 oD0006 MOV - #021264.6(R1) LOAD INSTRUCTION ¢ 
1498 011134 052711 Ooo4O0 BIS .—«- #BITS, (AL) ‘CLOCK INSTRUCTION : 
14299 O11140 122761 000377 oDD004 CMPB «#377, 4(R1) ‘TS IT ALL ONES? 
| 500 D11146 001003 BNE ss #1 NO 
| 1501 011150 052712 o10000 BIS _ WBIT12, (R2) HIF YES, NO LINE UNIT, SET STATUS BIT 
| 7802 011154 000436 BR 
| 7803 011156 032761 opo002 opo004 BIT _ #BIT1,4(R1) 51S SWITCH A ONE? 
| 1504 011164 001403 BEQStiéi«st#+dL ‘BR IF M201 
| 1805 O11166 052712 os0000 , BIS  _#BITI3!BIT14, (R23 :M@202 ASSUME CONNECTOR 
1606 11172 O00427 BR : CONNECTOR ON) 
1507 011174 032761 O00010 ooop04 7 BIT _ #BIT3,4R1) :1S MROY SET . 
1508 011202 001023 BNE 208 'BR IF MB201 NO CONNECTOR (ON LINE) 
1509 011204 012761 do0100 op0004 MOV - #BIT6, (RIL) ?LOAD PORTY 
1510 Oll212 012761 122113 oO0006 MOV «#122113, 6(R1) LOAD INSTRUCTION 
| 4811 011320 052711 Go0400 BIS 48 SCLOCK INSTRUCTION(SET DTR) 
1512 011224 012761 021264 oD0006 MOV  #021264.6(R1) LAD INSTRUCTION 
1513 Ollese 052711 ooo400 BIS _#BITB, (Al) iGLOCK INSTRUCTION(READ MODEM REG? 
1514- O11236 032761 OO0010 oDp0004 BIT  #BIT3°4(R1) '95 MROY SET NOW? 
_ 1515 oO11e44 01402 BEG ‘BR IF NO CONNECTOR 
| S18 Olle¥e Ose712 o¥o000 BIS _ #BIT14, (R2) !SET STATUS BIT FOR CONNECTOR 
| 1517 O11s2 -o0s725 208: TST (R2)4 ; N 
| 1518 11264 12761 21324 00006 MOV .-#021324.6(R1) PUT INSTRUCTION IN PORT6 
| 1819 Qlleb2 Ole711 001400 MOY  wBlTa!etTe. (R1) ;PORT4+LU 1S 
| 1520 011266 156122 000004 BISB  4(R1).(R2)+ STORE DOCMP LINE # IN TABLE 
| 158) Oileve Ole76I Oelav4 oo0006 MOV age] 344 B(R1)  ;PORTE* INSTRUCTION 
1522 O11 12711 001400 MOV wBITAIBITS, (R1) :CLOCK INSTR. 
1523 011304 166122 oo0004 BISB 4(R1).(R2)+ STORE BMB73 ADD IN TABLE 
1524 011310 o05722 TST —s (R2)+ 'POP OVER STATS 
1525 O11312 li ccR (RI) ‘CLEAR ROMI 
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3$: 


14S: 


138: 


4§; 


S$: 


6$: 


WHICH: 


VECMAP : 
B 


1$: 


es: 


7$: 


BOS 


DMNUM 
#20, DMNUM 
13$ 


(R1) 
6(R1) 


#10,R1 
#164000, R1 
2$ 

DMACTV 
DMNUM 

c$ 

OMNUM, R1 
R1, SAVNUM 


DMACTV 
DMACTV 
Rl 


4§ 


#6, 84 | 
DMACTV, SAVACT 
VECMAP 


MERR2 
RO 


.-2 
#14, (SP) 


2,2 


aa , STRTSW 


#OM? MAP, R2 
#300, RO’ 
#302/R1 
Ri, (RO) 


{RO}, (RL) 
, #1000 


DMACTV, TEMP1 
TEMP 1 


#12,R4 
BRLVL (RA) , PS 


ooo 


; UPDATE DEVICE COUNTER 

F DEY FOUND? 
‘YES DON’T LOOK FOR ANY MORE. 
CLEAR BIT 10 
;CLEAR SEL é 
;UPDATE CSR POINTER ADDRESS 


;BR IF MORE ADDRESS TO CHECK. 


;WERE ANY DMC11’S FOUND AT ALL? 


ERROR AUTO SIZER FOUND NO DMC11°S IN THIS SYS. 
;SAVE NUMBER OF DEVICES 
;GENERATE ACTIVE REGISTER OF DEVICES. 
;SET THE BIT 


;BR IF MORE TO ewe 
RESTORE TRAP VECTO 

; SAVE ACTIVE REGISTER 
;GO_FIND THE 


VECTOR NOW. 
NOTIFY OPR THAT NO DMC11°S FOUND. 
; MAKE oe LIGHTS ZERO 
STOP THE SH a 
;DISABLE CONT. SW. 
ENTERED BY NON- <EXISTANT TIME-OUT. 
;RETURN TO MAINSTREAM 


;SET IOT ~ PRIO TO 7 
:SET IOT TRAP VECTOR 

;SET SOF THAR E POINTER 
;FLOATING VECTORS START HERE. 
:PC OF IOT INSTR. 

stant & FILLING VECTOR AREA 
;ADD 2 10° RO +R1 

;BR IF MORE TO FILL 

: STORE Or are. 

: BRING wr A BIT 

;BR IF A 


L_DONE 
:R4_IS INDEX REGISTER 
;SET PS TO 7 


;SET ROMI 
:PUT INSTRUCTION IN PORTE 
FORCE AN INTERRUPT 


: STALL 
FOR TIME TC INTERUPT 























a os eae 
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‘DZOMG MACY11 27(1008) O7-MAR-77 15:52 PAGE 34 PAGE: o0c4 
| O2DMGB.P11 O7-MAR-77 11:21 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
1582 011614 162704 oo0002 SUB #2,R4 :GET NEXT LOWEST PS LEVEL 
; 1883 011620 001404 BEQ F RY 
| 1584 911622 016427 011720 177776 MOV BRLVL(RY), PS iNOVE NEXT tOWER LEVEL IN PS 
1585 011636 900767 BR 0 DELAY 
1586 011632 OS276e 005300 op000e 6S: BIS 05200, 2(R2) tNO INTERUPT ASSUME 300 AT LEVEL S AND FIX DMCL: 
; 1587 011640 O0S011 3$: CLR (R L 
| 1588 O11642 O62702 000010 ADD “10, RO t POP SOFTWARE POINTER 
| 1583 011646 000735 BR P GOIN 
| 1590 011650 OSi6&2 coo0de 4g; BIS (SP), 2(R2) GET VECTOR ADDRESS 
1591 011654 O42762 O00007 200002 BIC #7, 2(R2) CLEAR JUNK 
| S9¢ 011662 O1640S 011722 MOV BRLVL+2(R4),RS GET BR LEVEL OF DMC11 
| 1593 011666 006305 ASL RS :SHIFT LEVEL 4 PLA ACES 
' 1594 011670 006305 ASL RS :TO THE LEFT FOR THE 
| 1595 011672 006305 ASL RS :STATUS TABLE 
' 1596 011674 006305 ASL RS 
, 1597 011676 O42705 170777 BIC #170777,RE ;CLEAR UNWANTED BITS 
1598 011702 os0S562 op000e BIS RS, 2(Re) ‘PUT BR LEVEL IN STATUS TABLE 
1599 011708 Oe?b26 CMP (SP)+, (SP)+ :POP IOT JUNK OFF STACK 
1600 011710 012716 011640 MOV #35, (SP) :SET FOR RETURN 
1601 011714 Od0d00e RTI 
1608 011716 000207 cs: RTS PC ;ALL DONE WITH “AUTO SIZING” 
' 1604 011720 900000 BRLVL: O ;LEVEL 0 
' 1605 011722 000000 0 “LEVEL 0 
| 1606 90117 00200 200 *LEVEL 4 
1607 011726 o00040 240 “LEVEL 5 
1608 011730 000300 300 LEVEL 6 
1609 011732 0005340 340 :LEVEL 7 
ie 
| 1612 021734 105777 1672044 INTTY: TSTB  @TKCSR ;WAIT FOR DONE 
, 1613 011740 100375 BPL - 
| 1614 Oli74¥2 017703 167240 MOV JTKDBR, R23 ;PUT CHAR IN RQ 
| 4615 011746 105777 167236 TSTB = aTPCSR :WAIT UNTIL PRINTER IS READY 
/ 4616 011752 100375 BPL 4 
1617 011754 010377 167232 MOV R3,JTPDBR :ECHO CHAR 
1618 011760 042703 oo0240 BIC #BiT7'BITS,R3  ;MASK OFF LOWER CASE 
1619 011764 000207 RTS PC : RETURN 
1621 15300 


léce O117EE 15400 8 ROMMAP: 
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162 MOVE INSTRUCTIONS 
284 INPUT ay ASSIGNMENTS 
336 PROTOCOL DEPENDANT MACROS 
379 DMC 11 SDCHP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 
14 VERSION OOA FEBRUARY 26, 1975 


| DOS 
| DMO-21 MICROPROCESSOR_INSTRUCTICNS MACYL1 27(1006) O7-MAR-77 16:24 POSE: OOS 
| OMCNEW.MAC © O2-DEC-76 09:40 TABLE OF CONTENTS 
4 MACRO DEFINITIONS 
6 REVISION 00 
: FEBRUARY 25, 1975 
| 9 REVISION OL 
10 MARCH 18,1 
| 11 NE CSR BbARB CUANGES 
| 13. HARVEY M. SCHLESINGER 
1S COPYRIGHT 1975 DIGITAL EQUIPMENT CORPORATION 
67 MICRO INSTRUCTION DEFINITIONS 
68 BRANCH INSTRUCTIONS 
/ 4g N BRANCH INSTRUCTIONS 


| 3 
| 38 HARVEY M. SCHLESINGER 
| 331 COPYRIGHT 1975, DIGITAL EQUIPMENT CORPORATION 
393 VERSION OOB MARCH 17,1975 
| 334 CSR AND MICROPROCESSOR CHANGES 
| 396 VERSION OOC NOVEMBER 6, 1975 
337 RETRANSMISSION CHANGES 
| 
369 VERSION OOD DECEMBER 3, 1975 
490 TRANSMIT DONE CHANGES 
102 THE LATEST MODIFICATIONS WERE ADDED ON: 
yoy THIS VERSION WAS USED 70 Bt AST THE FIRST 
40S RELEASE ON OCTOBER 1 5 
407 MICROPROCESSOR MAIN “RenoRY ASSIGNMENTS 
4693 SCRATCH PAD ASS 
so4 INIT--INITIALIZATION ROUTINE 
5Sg IDLE--PROGRAM IDLE LOOP 
575 BASSRV-~~— BASE SERVICE ROUTINE 
£14 NIDLE2---NO CSR ACTIVITY STATE 
663  INWAIT---WAIT FOR RQI TO CLEAR 
718 QUTINT---SET UP OUTPUT INTERRUPT [RDYO] 
766 OUTWAI--WAIT FOR RDYO TO GO AWAY 
773 CTLSRV--CNTL I SERVICE 
794 TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE 
Bib RBASRV--RECEIVE BUFFER ADDRESS SERV 
Be3 - RCVA--ROUTINE TO HANDLE FIRST DDCMP CHARACTER 
9.8 RCVB--ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 
657 RCVC--ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD SELECT AND FINAL 
975 RCYD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAG 
1000 RCVE--ROUTINE TO LE N FIELD OF NUMBERED MESSAGE 
1013 RCVF--ROUTINE, TO IGNORE ADDRESS 
1018 RCYG--ROUTINE/ TO IGNORE CRC1 
1022 RCVH--ROLTINF! TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


“DML DDCMP PROTOCOL IMPLEMENT 
'DDENEW.MAC = OB-DEC-76 I 
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RCVKOL--ROUTIN TO BOE TER FIRST BYTE OD RECEIVE 
ES 
ND PE FIELD,S@LECT AND FINAL 
MESSAGE RESPONSE FIELD! 
Feet ittinaae: FIELD 
S_CRC4--END OF DATA MESSAGE 
MES: 
MESS 
D--NUMBERED MESSAGE 
IG ADDRESS FIELD 
S( R EOM 
art vee CHARACTERS 
‘BER Pt YPE FIELD 
£ FIELD 
NSE Bete, ( UNNUMB ns) 
SG NUMBER 
SG- ie ADDRESS 
UTIN re DS REP 
SNDACK--ROUTINE 1 SEND AN ACK 
REP HANDLER 
START HANDLER 
STACK HANDLER 
NXMERR ---NON EXISTANT MIMORY HANDLER 
SELQSY--ROUTINETO(HECK SELECT AND asi AND DIDDLE LINE STATUS WORD we 
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rusia ODCMP PROTOCOL I Pew MACY11 27(1006) O7-MAR-77 16:24 PAGE 1 

DMCNEW. MAC D2-DEC-7E 09:4 
-LIST ME 
- UTE DMC-11 MICROPROCESSOR INSTRUCTIONS 
.SBTTL MACRO DEFINITIONS 


‘seTTL REVISION O00 
.SBTTL FEBRUARY eS, 1975 


"SBTTL 
‘SBTTL REVISION 01 

“SBTTL MARCH 18, 1975 

-SBTTL NEW ese Sao aRD CHANGES 
"S8TTL HARVEY M. SCHLESINGER 


‘ SBTTL COPYRIGHT 1975 DIGITAL EQUIPMENT CORPORATION 


ee ae ed ee ee 

Mon fue 29. OMIM UN SGI 
w 
@w 
4 


. 


rururus-e- 


1] aaaiee LESSOR ca 
sa) 52-DEc-76 O93: 


ocoo0c 
0000C9 


060000 
060009 


00340 
000209 


000160 
004000 


C0340 


O7-MAR 
S 


MOVE=0 
JUMP= *sonn0 
IBUS=20000 
IMM=0 
MEMX=40000 
BRX=60000 
B8R=60000 


OP=60000 


SUB= 340 


BR7CON=3400 


GOS 


16:24 


-77 PAGE i 
ISITAL EQUIPMENT CORPORA! rN 


OPROCESSOR INSTRUCTION WORD DEFINITIONS 
;OPCODE MOVE 


;OPCODE JUMP 
;SOURCE IBUS 

; SOURCVE a al 
;SOURCE MEMORY 
;SOURCE BR 

SOURCE BR 


; SOURCE BR 


SP 
‘ DEST- “RITE SP AND BR 
;FUNCTION-SELECT A 


R 
:EUNCTION- TWOS COMPLEMENT SUBTRACT 
A+B+CARRY 
:A-3- 


; INCREMENT A 
A PLUS “pe: 


S 
A PLUS A PLUS C 
:DECREMENT f 


sCONDITION ¢ 
:CONDITION 2 

: ALWAYS 
:CONDITION BRO 
CONDITION BRI 
:CONDITION BR4 
:CONDITION BR? 


wane 


3 
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2: MICRO INSTRUCTION DEFINITIONS 
. SBTTL BRANCH INSTRUCTIONS 


SumP=109000 : JUMP OP CODE 
‘ .MACRO ALWAYS ADDRES  ; JUMP ALWAYS 

MICPC=MICPC+1 

«JUMP! ALEOND! < ADDRES- ~INIT&3000%4> ! <ADDRES-INIT3777 “2> 
. ENDM 

.MACRO $ZERO 
MICPC=MICPC+1 

900000 

.ENDM  $ZERO 

xiMBCRO, 1289, ADDRES : JUMP IF BRO SET 

< JUMP! BROCON! <ADDRES-INIT83000%4> ! <ADDRES-INIT8777/2> > 
.ENDM 

.MACRO BRI ADDRES JUMP IF BRI SET 
MICPC=MICPC+1 

< JUMP! BRI CON! <ADDRES- <eevaanenden <ADDRES-INITS777/2>> 
.ENDM 

.MACRO BRY ADDRES : JUMP IF BR4Y SET 
MICPC=MICPC+1 

< JUMP! BRYCON! <ADDRES-INIT&3000#4> ! <ADDRES-INIT8777/2>> 
ENOM 

MACRO BR? ADDRES ; JUMP IF BR? SET 

MICPC=MICPC+ 


< JUMP! BR7CON! <ADDRES-INIT&83000#4> ! <ADDRES-INIT8777/2>> 
. ENDM 

-MACRO 2 ADDRES ;JUMP IF 2 BIT SET 
MICPC=MICPC+1 

< JUMP! ZCOND! <ADDRES-INIT&3000#4> ! <ADDRES-INIT&777“2>> 
.ENDM 

-MACRO C ADDRES ;JUMP IF C BIT SET 
MICPC=MICPC+1 

JUMP? CCOND! < ADDRES-INIT83000%4) ! < ADDRES- ~INIT8777 


-ENDM 
.SBTTL INDEXED BRANCH INSTRUCTIONS 


-MACRO .ALWAY SRC,FUNC,SPLOC ; INDEXED JUMP ALWAYS 
MICPC=MICPC+! 


een T 


I05 


i DM=11 i MICROPROCESSOR ‘ty eae ONS MACY11 27(1006) O7-MAR-77_ 16:24 PAGE E-1 


[OMENEW. MAC | © De-Dec-76 09:4¢ INDEXED BRANCH INSTRUCTIONS 
| 163 < JUMP!ALCOND! SRC! FUNC! SPLOC> 
ies ENDM 
127 y MACRO .BRO SRC,FUNC,SPLOC ; INDEXED JUMP ON SRO SET 
128 MICPC=MICPC+! 
139 < JUMP! BROCON! SRC! FUNC! SPLOS> 
131 .ENDM 
i33 .MACRO .BR1 SRC,FUNC,SPLOC ; INDEXED JUMP ON BRI SET 
134 MICPC=MICPC+1 
i3e <JUMP!BRICON! SRC!FUNC! SPLOC> 
137 .ENDM 
i393 : -MACRO .BR4Y SRC,FUNC,SPLOC ;1NDEXED JUMP ON BRY SET 


= 


MICPC=MICPC+1 
«JUMP! BRYCON!SRC!FUNC!SPLOC> 


. ENDM 
' -MACRO .BR7 SRC,FUNC,SPLOC ; INDEXED JUMP ON BR? SET 
MICPC=MICPC+ 
< JUMP! BR7CON! SRC! FUNC! SPLSC> 
. ENDM 


.MACRO .Z SRC,FUNC,SPLOC ; INDEXED JUMP ON Z BIT SET 
MICPC=MICPC+1 
« JUMP! ZCOND! SRC! FUNC! SPLOC> 


. ENDM 
-MACRO .C SRC,FUNC,SPLOC ; INDEXED JUMP ON © GIT SET 


MICPC=MICPC+1 
JUMP? CCOND! SRC! FUNC! SPLOC> 


Momo or Un UT ON UU ON Un On U0) oe 
1 We-OWON MUS Cone OW0 NOUN lon O 


b= b— b— b— 2 b— bs 2 b= bb be b+ 2 bs bo be 2 bo en bs hs Pe b+ he ho 


.ENDM 
‘SBTTL MOVE INSTRUCTIONS 
: pocc00 MOVE=C sMOVE OPCODE 
bb , MACRO BRSHFT ;BR SHIFT RIGHT 
167 MICPC=MICPC+ 
166 ; CHOVE! SHE TBR! MRTEBR! SELB? 
170 .ENDM 
172 3 MACRO BSHF TB ;BR ROTATE 
173 MICPC=MICPC+1 
74 «MOVE! SHF TBR! SELB! BR> 
176 ENDM 
177 


178 MACRO SP SRC,FUNC,SPLOC ;LOAD SCRATCH-PAC 
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MACY11 27(1006) 07-MAR-77 16:24 PAGE E-z 


MOVE INSTRUCTIONS 


MICPC=MICPC+1 
«MOVE! SPX!SRO!FUNC!SPLOC> 


/ENDM 

.MACRO SPBR SRC,FUNC,SPLOC ;LOAD SP AND 3F 
MICPC=MICPC+1 

MOVE! SPERX! SRC! FUNC! SPLOC> 

.ENDM 

.MACRO MEM SRC,DATA ;MOVE TO MEMORY 

. MICPC=MICPC41 

 MOVETURMEM! SRC! <DATA> > 

.ENDM 

MACRO NEMADR ADDRES , FUNC :WRITE ADDRESS TO MEMORY 
NICPC=M MICP 


«MOVE! WRMEM! <ADDRES-INIT8777/2>> 

(MOVE 1RMEM! FUNC! <AODRES- ~INIT877772>> 

. ENDM 

.MACRO MEMINC SRC,DATA ;MOVE TO MEM, INCR MAR 
MICPC=MICPC+1 

«MOVE! WRMEM! INCMAR! SRC! <DATA> > 

. ENDM 

-MACRO BRWRTE SRC,DATA ;MOVE TO SR 


MICPC=MICPC+1 
«MOVE! WRTEBR! SRC! < DATA>> 


. ENDM 
trates Ber ADDRES ;PUT RETURN ADOR (1 SYTE) IN BR 
CPC=M 
«MOVE! WRTEBR! <ADDRES-INIT&777/2>> 
. ENDM 


.MACRO OUTPUT SRC, DATA ;WRITE OUTPUT 
MICPC=MICPC+1 

<MOVE! WROUT!SRC!<DATA> > 

. ENDM 

-MACRO OUT SRC,DATA 
MICPC=MICPC+1 

«MOVE! WROUTX! SRC! <DATA>> 


. ENOM 


me a ee ee ee 
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1 DMS=1 LL MIOROPROCESSOR INSTRUCTIONS MACYL1 27(1006) O7-MAR-77 16:24 PAGE 2-3 PAGE: 262 
EMENEW.MAC © De-DEc-76 05: MOVE INSTRUCTIONS 
235 .MACRO LOMA SRC,DATA =; LOAD MEMORY ADDRESS REG 
23 MICPC=MICPC+1 
237 IF IDN SRC IMM 
238 <MOVE! LDMAR! IMM! <DATAB377> > 
240 <MOVE!LDMAR! SRC! «DATA > 
24i .ENDC 
242 
e453 ENOM 
| ; MACRO LOMAP SRC,DATA ;LOAD MEMORY PAGE NUMBER 
246 MICPC=M NICPC 
347 F ION S 
es tot oebe one 
250 <MOVE! LDMAPG! SRC! <DATA> > 
251 .ENDC 
252 
253 .ENDM 
25 ‘ : .MACRO LDADDR DATA  ;LOAD A LINE TABLE ADDRESS 
256 BRWRTE IMM, DATA 
257 LOMA BR, SADD! SP. RMO> 
eee ~ENDM 
260 ? .MACRO CMP SRC,SPADDR ;COMPARE SOURCE AND SP 
261 MICPC=MICPC+1 
obs <SUBTC! SRC! SPADDR> 
ze .ENDM ' 
cos : 
266 .MACRO NOP SRC,FUNC,SPADDR ;NOP-SOURCE, FUNC, NO DEST 
267 MICPC= MICPC+1 
bE <SRC' FUNC! SPADDR> 
269 
e70 .ENDM 4 
272 .MACRO CALL —_REG,ADDRES ;SUBROUTINE CALL 
273 DISP=<MICHC#1»8377 
274 BRWRTE DISP+3 
575 SP RASELE, REG 
276 ALWAYS aD BORE 
44 .ENDM 
279 -MACRO RETURN REG, PAGE : SUBROUTINE RETURN 
280 “ALWAY BR,SELA, <REG!PAGE> 
81 " ENOM 
c 





Se fy MICROPROCESSOR ga cea MACY11 27(1006) O7-MAR-77 16:24 PAGE 3 PAGE: 
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MONEW. MAC Oe-De-76 09:40 INPUT/OUTPUT ASSIGNMENTS 


2s4 .SBTTL INPUT/OUTPUT ASSIGNMENT 
285 -IBUS _ ASSIGNMENTS 
2gk 1oooco tNCON=0+100000 5.IN CONTROL CSR 
287 160920 MAIN=20+100000 ‘MAINTAINENCE REGISTER 
289 190540 OCON=40+100000 ‘OUT CONTROL CSR 
235 109060 UBADDR=60+100000 ; UNUSED : 
290 190199 | PORT1=100+100000 CSRY 
291 100126 PORT2=120+100000 : CSRS 
292 | 100146 PORT3=140+100C00 : CORE 
293 100160 PORT4=160+100000 : CSR? 
294 190200 NPR=200+100000 :NPR CONTROL 
295 100220 UBBR=220+ 100000 : BRC INTERRUPT ) CONTROL 
296 060690 \ INDATI=0 INPUT DATA LOW BYTE 
297 090029 INDAT2=20 ‘INPUT DATA HIGH BYTE 
298 000140 IOBA1=140 :OUTPUT BA LOW BYTE 
ESS 900160 1O0BA2=160 ;QUTPUT BA HIGH BYTE 
300 ¢99100 11BA1=100 ‘INPUT BA LOW BY 
301 600129 IIBA2=120 : INPUT BA HIGH BYTE 
009200 RCVDAT=200 :RECE 
203 oo5e2¢ TMTCON=220 :TMTR MEN PRO 
394 999240 RCVCON=240 "RCVR CONTROL 
305 909269 MODEM=26 :MODEM CONTROL 
306 000300 SYNREG=300 : SYN 
307 000320 LNOSW=320 ‘LINE NUMBER SWITCH 
308 000349 8M873=340 : BMB 
309 900360 LUMAIN=360 LINE UNIT MAINTAINENCE 
310 SOBUS ASSIGNMENTS 
3i1 “EXTENDED OBUS 
312 ocpoco SINCON=0 ' :IN CONTROL CSR 
313 909081 OMAIN=1 : MAINT 
314 ogood2 OOCON=2 :OUT CONTROL CSR 
31s 000003 OUBADD=3 : UNUSED 
316 900004 OPORT I= : 
317 cooo0s OPORT2= CSRS " 
312 009006 OPORT3=6 ; SRB 
319 009007 OPORT4=7 : CSR? 
330 900010 ONPR=10 :NPR CONTROL 
321 000011 OBR=11 BR CONTROL 
322 : -UNEXTENDED OBUS 
333 poc00e duTDAL=2 :OUTPUT DATA LOW BYTE 
334 900003 . OUTDAe=3 :OUTPUT DATA HIGH BYTE 
325 000006 OBA1=6 :OUTPUT BA LOW BYTE 
335 07 OBA2=7 OUTPUT BA HIGH BYTE 
327 o00004 IBAl= sINPUT, BA 
328 ooocos 1BA2= ; T “BA HIGH OYE 
329 000019 MTDAT=10 : RDA TA 
330 00061 OTMTCO=11 :TMTR CONTROL 
331 00091 ORCVCO=12 ?RCVR CONTROL 
332 90001 OMODEM=13 J :MODEM CONTROL 
009014 SYNC=14 :SYN REGISTER 


333 
334 000917 OLUMAN=17 ;LINE UNIT MAINT. 





$$ 


| ; MOS | 
OMC-11 MICROPRO! SESSOR_ INSTRUCTIONS MACY11 27(1006) O7-MAR-77 16:24 PAGE 3-1 PAGE: 6064 
(EMCNEW.MAC © -52-DEC-76 09:46 PROTOCOL DEPENDANT MACROS 
336 .SBTTL PROTOCOL DEPENDANT MACROS ; 
337 MACRO RSTATE STATE sUPDATE RECEIVE STATE POINTER 
338 MICPC=MICPC+1 
339 5 (HOVER TEBR# IMM! «STATE-INIT8777/2> 
340 MICPG= MIC 
341 CMOVE! SPX! BR! SELB! SP3> 
342 . ENDM 
343 
344 ‘MACRO TSTATE STATE 
345 MICPC=MICPC+1 
346 (MOVE !WRTEBR! IMM! <STATE-INIT8777/2>> 
347 MICPC=MICPC+i 
348 , «MOVE! SPX! BR! SELB! SP2> 
349 ' ENDM 
350 : 
351 - "MACRO STATE ADDR 
352 MICPC=MICPC+1 
353 <MOVE !WRTEBR! IMM! <ADDR-INIT&777/2>> : 
354 . ENDM 
365 ; 
35£ "MACRO PSTATE STATE 
357 MEM IMM, <<STATE-INIT877772>> 
358 ENDM 
359 : 
360 "MACRO PSTATI STATE 
361 MEMINC IMM, <<STATE-INIT8777/2> > 
362 ENOM 
363 : 
364 "MACRO SYNMAC 
3€5 Sp BR, SELB, SP2 ;UPDATE STATE POINTER FROM BR 
366 SYNOUT ; 
367 ALWAYS IDLE 
368 . ENDM 
363 : 
370 "MACRO Sy NOUT 
371 : LOMA SG LOAD PTR_TO UNNUMB MESSAGE SKELETON 
372 OUTPUT TEAK  TRCMAR> , <SELB! oTuTeos 2SOM TO TMTR CONTROL 
373 OUTPUT <MEMX! INCMAR> | <SELB! TMTDAT> ‘SYNC TO TMTR SILO 
374 - ENOM 
ofS 
7 177777 MICPC=177777, ~—s s INIT MICRO PC 
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OMC-13 MI CROPROCESSOR INSTRUCTIC MACY11 27(1006) O7-MAR-77 16:24 PAGE S PAGE: COES 


Low. sac 32-OCT-76 14:33 _ DME11 DDCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 
73 -SBTTL OMC11 DDCMP MICRO CODE ASSEMBLED FOR USE WITH THE M201 LINE UNIT 
380 090000 LOW=0 
381 9ococd $LOW=0 
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pneu DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE & 
| DOCNEW. MAC D6-DEC-76 10:14 DMC11 DDCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE 












UNIT 

1 
| 386 “TITLE ONC OMC11 bOCHP PROTOCOL IMPLEMENTATION 
{ . 

397 ‘SBTTL VERSION O0A FEBRUARY 26,1975 

38g "SBTTL 

383 -SBTTL HARVEY M. SCHLESINGER 
! 331 . SBTTL COPYRIGHT 1975, DIGITAL EQUIPMENT CORPORATION 
| 393 -SBTTL VERSION OOB MARCH 17,1975 
| 334 -BBTTL CSR AND MICROPROCESSOR CHANGES 

396 -SBTTL VERSION OOC NOVEMBER 6, 1975 

397 “SBTTL RETRANSMISSION CHANGES 

392 “5BTTL 
| 398 “SBTTL VERSION OOD DECEMBER 3,1975 
| 490 -BBTTL TRANSMIT DONE CHANGES 

402 "SBTTL THE LATEST MODIFICATIONS WERE ADDED ON: 

403 "SBTTL T ? 

404 ‘SBTTL THIS VERSION ER S USED TO BLAST THE FIRST 

49¢ ‘SBYTL RELEASE ON OCTOBER 13, 1976 
| 
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i SDCNEW.MAC O6-DEC-76 10:14 MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 
| 407 .SBTTL MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 
: 408 ;ALLOCATION OF MICROPROCESSOR MAIN MEMORY 
| 49g oo00c0 NAKSR=0 NAKS RECD--DYNAMIC 
410 900901 NAKST=NAKSR+1 iNaKs TMTED--DYNAMIC 
411 000002 REPSR=NAKST+1 REPS RECD--DYNAMIC 
; 412 000003 REPST=REPSR+!1 REPS TMTEO--DYNAMIC 
; 413 000006 NP=REPST+3 ‘CONSTANT O 
|; 414 000007 NTLR=NP+1 ; NAKS-MSG NO BUFFERS CUMUL. 
1 41S 000010 NHDR=NTLR+1 *NAKS-MSG HEADER BAD 
; 416 000011 NDATR=NHOR+1 ; NAKS-DATA BAD 
| 417 000012 NTLS=NDATR+1 § :NAK SENT --NO BUFFERS 
418 000013 NHDS=NTLS+1 i NAK SENT BAD HEADER 
419 000014 NOATS=NHDS+1 AK SENT 4BAD DATA 
420 000015 REPCS=NDATS+1 REPS SENT CUMUL 
| We] 000016 REPCR=REPCS+1  :REPS RECD CURUL 
| 422 000017 BASE=REPCR+1 SORE TABLE BASE ADDRESS 
423 oo0022 SRC=BASE+=s :START OF INPUT CHAIN--NEXT RECY CONE 
424 000023 ERC=SRC+1 :END OF INPUT CHAIN 
425 p00024 LRC=ERC+1 :LAST POTNTER RECD 
45 009025 RCLI=LRC+1 SRECETVE LINK #1 
427 32 RCL2=RCL1+5 : ao 
428 000037 RCL3=RCLe+ ..* "43 
| -4pg 000044 RCL4=RCL3+5 
| 430 0051 RCLS=RCL4+5 
/- ai 000056 RCLB=RCLS+5 
| 432 000063 RCL7=RCL6+5 
| 433 909070 STC=RCL7+5 ;START OF OUTPUT CHAIN---NEXT TMT DONE 
434 900071 LTC=STC+1 ‘LAST TRANSMITTED 
| 435 000072 ETC=LTC+1 ‘END OF TRANSMIT CHAIN 
| 436 000973 TMLI=ETC+1 ; TRANSMIT LINK 
437 000101 TMLO=TML1+6 : "ie 
, 438 000107 TML3=TMLO+6 ;_ = “ “43 
1 439 000115 TML4=TML3+6 
| yg 000123 TMLS=TML4+6 
/  44t 000131 T“LB=TMLS+6 
44> 000137 TML7=TMLO+6 
443 000145 TMLB=TML7+6 
444 000153 T=TMLO+6 YPE FIELD 
445 900154 ST=T41 ; SUBTYPE’ FIELD 
446 000155 ISP17=ST+1 :MSG ACKED IMAGE 
447 000156 IMG1O=ISP17+1 SIMAGE OF BIT 1 OF SPIO 
4n5 900157 IMG11=IMG10+1 :IMAGE OF SP11 
(Ng 000160 IMG12=IMG1I1+1 SIMAGE OF SP12 
456 000161 IMG17=IMGlo+ ‘IMAGE OF SP17 
45} 009162 PRTST=IMG17+1 ‘PORT STATE 
/ 452 000163 TYPTAB=PRTST+1 ;TYPE TABLE--- 
| 453 :72 TYPE TABLE REP 
454 +2 ibe "~~ NAK 
45S 000165 TYPSTT=TYPTAB+2 :74 " ”“ START 
4Se ‘75 ”" STACK 
m4 
459 000170 OSTATE=TYPSTT+3 OLD STATE POINTER 
460 000171 ISP11=0STATE+1 ;SP1L IMAGE 
461 090172 1SP12=ISP11+1 


;SPle IMAGE 
462 000173 INCONS=ISP12+1 ;IN CONTROL CSR IMAGE 


OMS ii = rm Ore cen 


CDCNEW. o6- 
463 000174 
464 900246 
465 000241 
456 o0024e 
467 000400 


ee 6 ae ee oe ame — we ee ee + 


RTHRS=INCONS+1 
NXTINT=240 
NXTSP=NXTINT+1 
INTSTK=NXTSP+1 
MMEND=409 


DO6 


MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-2 
MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 


;RECV THRESHOLD LINK 
NEXT INTERRUPT gt Nt 
END OF INTERUPT CHAIN 
STACK OF INTERUPTS 
:MAIN MEMORY END 


PAGE: 
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-DMC11 DDCMP PROTOCOL IMPLEMENTATION § MACY11 27(1008) O7-MAR-77 16:24 PAGE 6-3 PAGE: 
'DCNEW.MAC © O6-DEC-76 10:14 SCRATCH PAD ASSIGNMENTS 
| WBS .SBTTL SCRATCH PAD ASSIGNMENTS 
470 gocoo0 $P0=0 ; SPO---SCRATCH REGISTER 
| 471 900901 SPizl1  :SP1---PORT STATUS WORD 
472 :BIT ASSIGNMENTS 
| 473 :BITO--INIT MODE 
474 ;BIT1--SEC STATION. SELECT (UNUSED) 
475 :BIT2--NO BUFFER ASSIGNED IN BOOT MODE 
476 :BIT3--DLE RECEIVED WHILE NOT IN MAINT MODE 
| 47? :BIT4--INTERRUPT PENDING 
| 478 :B1Tg--DISCONNECT ERROR 
| 47g ;8117--BOOT MODE 
| 4B0 oooo02 SP2=2  :SP2---TRANSMIT STATE POINTER 
481 900003 SP3=3  SP3---RECEIVE STATE POINTER 
| 4ge 000004 SPu=4 —_: SPY---END RECV ADDRESS 
4e3 000095 SPS=S  :SPS---END RECEIVE ADDRESS 
494 900006 SP6=6  ;SP6---END TRANSMIT ADDRESS 
4gs 009007 SP7=7 _:SP7---END TRANSMIT ADDRESS 
| 4BE 000010 SP10=10 ;SP10---LINE STATUS WORD 
| 487 :BIT ASSIGNMENTS 
| 4g8 :BITO--UNNUMB_ PE 
488 ‘BITI--MESSAGE IN PROGRESS 
490 !BIT2--LINE HAS GONE IDLE 
491 'BIT3--START RECEIVED 
492 ;BITH--CLEAR ACTIVE ON END 
493 !BITS--START MODE 
55 ;BITE--HALF DUPLEX 
«49s :BIT?--OK TO SEND 
| 4QE 909011 SPli=11 :SP11---R FIELD 
4g? 800012 SPlo=le :SP12---N FIELD 
a: 909913 SP13=13 ;SP13---TYPE 
499 000014 SP14=14 :SP14---RECEIVE LINK IMAGE 
500 090015 SP1S=15 ;SP15---TINER ENTRY-—-NUNBER OF ONE SECOND. TICKS 
501 900016 SP16=16 :SP1o---POINTER TO TMT LINK COPY IN MAIN MEM 
E0z 060Si7 SP17=17 :SP17---LAST MESSAGE ACKNOWLEDGED 


FOG 
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| SDCNEW.MAC © DG-OEC-76 10: INIT=-INITIALIZATION ROUTINE 
| 504 -SBTTL | INIT-<INITIALIZATION ROUTINE 
os ZEROS MAIN MEM 
506 LOOPS WAITING FOR RECEIVE DATA‘BOOT? 
507 [OR FOR ROI T 
£08 ;WILL ACCEPT ONLY BASE FORMAT. ALL OTHERS WILL RETURN 4 PROCEDURE ERROR 
510 ‘AT INITIALIZATION --- THE HARDWARE CLEARS THE BR AND MAR 
511 O1176E '=1176 = 
S12 011766 INIT:  §P BR, SELB, SPO ;CLEAR SPC 
(1) 909900 MICPC=MICPC+1 
1) 011766 D63ee0 «MOVE! SPX! BR! SELB! SPO> 
$13 011770 SP BR,SELB, SP3 ;PAGE ONE TRANSFER ADDRESS 
(1) 000001 MICPC=MICPC41 
1) 91170 063223 <MOVE! SPX! BR! SELB! SP3> 
} 
514 011772 SP BR SELB, SP17 :CLEAR SP17 
C1) ooog02 MICPC=MICPC+1 
(1) 911772 063237 «MOVE! SPX! BR!SELB!SP17> 
Sié O11774 OUT 4 BR, (SELA! OINCON> :ZERO THE IN CONTROL CSR 
(1) o00002 MICPC=MICPC+ 
(1) 011774 061200 MOVE ! WROUTX! BR! <SELA! OINCON> > 
Sig 11776 OUT BR, <SELA! OOCON> ;ZERO THE OUT CONTROL CSR 
C1) 000004 MICPC=MICPC+1 
(i? 011776 Sble0e «MOVE! WROUTX! BR! <SELA! OOCON> > 
Lae 
517 o1e000 \ SP IMM, 370, SP10 ;WRITE 5 ONE BITS TO THE HIGH ORDER 
(1) 900005 MICPC=MICPC41 
(1; c1eoo 002370 «MOVE! SPX! IMM!370!SP10> 
3 F 
cig BITS OF SP10 
519 a1e20ce cS: S37 BR, AA, SP10 :SHIFT SPIO LEFT SETTING CARRY THE 
(1) ss gonone MICPC=MICPC+1 
(1) 912002 963136 (HOVE! SPX! BR AA! SP 10> 
520 , SFIRST 5 TIMES THRU THE LOOP 
Sei 012004 MEMINC BR ,ADDC!SP3 WRITE A ONE TO THE FIRST S MEMORY 
(1) 000097 MICPC=MICPC+ 
(1) o12004 o76423 <MOVE !WRMEM! INCMAR! BR! <ADDC! SP3> > 
522 SLOCATIONS AND ZERO THE REST 
E23 012006 SP BR, INCA, SPO !INCREMENT COUNTER 
(1) 090010 MICPC=MICPC+1 
(1) 012006 063060 <MOVE! SPX!BR! INCA! SPO> 
i) 
S24 012010 Z 10$ ;ALL DONE 
(1) 000011 MICPC=MICPC+1 
(1) 012010 101413 < JUMP! ZCOND! < L0$-INIT&3000%4> ! < 10$-INIT&777/'2> > 
} 
525 o12012 WAYS 5S ;KEEP GOING 
(1) 000012 NICPCENTZEC#I 
(1) 012012 180408 <JUMP!ALC OND! <S$-INITS3000#4> ! <S$-INIT8777.'2>> 
} 
See 012014 i0$:  SPBR  IMM,1,SP1 ;WRITE @ 1 TO THE BR AND SP1 
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012020 


012024 
Ciede4 


012024 
012026 
012026 
012030 
012030 
612032 
012032 
012034 
012034 
012036 
012036 
012040 
012040 
012042 
Ol2e04e 
O1eCs4 
012044 


APA 
Vivive a! 


SEcSES-Fe 3 iJ: 14 


8) 0013 
093401 


000014 
06323: 


mY 
o1oiee 


306 


900017 
Ci&S20 


000026 
O00b2E 


009021 
C62234 


CSO0z2e 
016403 


000023 
02402 


900924 
057235 


og0Ces 
Oib40E 


O00026 
016407 


OCO0e7 
Sie4C) 
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27(1006) O7-MAR-77 16:24 PAGE E-5 PASE: O71 
NITIALIZATION ROUTINE 

MICPC=MICPC+1 

MOVE! SPBRX! IMM! 1 'SP1> t ‘ 

SP BR, 5 sa SP11 ;WRITE A i TO SPL) 

MICPC=MICPC+ 

CHOVE! SPX! BRISELB! SPL) 


SP BR, SELB, SP12 ‘WRITE A 1 TO SPi2 
MICPC=MICPE+1 ; 
<MOVE! SPX!BR!SELB!SP12> 


LOMA —_IMM,PRTST :POINT MAR TO UNNUM MSG SKELETON 
MICPC=NICRC C41 


IDN IMM 1 MM 
«Hove! LOnAR! THN! cPRTSTB377>> 
<MOVE!LDMAR! IMM! <PRTST> > 
ENDC 


PSTATI NIDLE2 ;WRITE PORT IDLE STATE 
MEMINC _IMM, <<NIDLE2-INIT&8777/e> > 

MICPC=MICPC41 i 

<MOVE ! WRMEM! INCMAR! IMM! <<NIDLE2-INIT8777/2>>> 


BRWRTE IMM, 226 ;WRITE SYNC TO MEMORY 
MICPC=MICPC41 
«MOVE !WRTEBR! IMM! <226>> 


OUTPUT BR arene :LOAD THE SYNC REGISTER 
MICPC=MICPU+ 
«MOVE! WROUT! BR! <SELB!SYNC> » 


MEMINC IMM, 3 REP 
MICPC=MICPCH1 
<MOVE! WRMEM! INCMAR! IMM! <3>> 


MEM IMM, 2 : NAK 
MICPC=MICPC41 
<MOVE! WRMEM! IMM! <2>> 


SP MEMX! INCMAR, SELB, SP15 ;SET STARTING COUNT 
MICPC=MICPC+1 
«MOVE! SPX! MEMX! INCMAR! SELB!SP15> 


MEMINC IMM,6 START 
MICPC=MICPC41 
“MOVE! WRMEM! INCMAR! IMM! <&>> 


MEMINC IMM,7 ; STACK 
MICPC=MICPC41 
«MOVE! WRMEM! INCMAR! IMM! <7>> 


MEMINC mA i ; ACK 
MICPC=MICP 
MOVE TURMEM? THCMAR! IMME ¢L> > 
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SUci2 SQSMP PRET OCS. IMPLEMENTATION MACY11 27\1006) Q7-MAR-77 16:24 PAGE E-6 - PAGE: C072 
1 EOCNEW.MaC =| O6-DEC-76 0:14 INIT=-INITIALIZATION ROUTINE 
S23 212046 LOMA. =f LOAD ADDRESS OF LAST TMT CHAIN 
(1) 009936 MICPC=MICPCS 
(1) IF TDN IMM, IMM 
(1) 912046 o1cdet «MOVE !LOMAR! IMM! <STC3377> > 
(1) (MOVE !LDMAR! IMM! <STC>> 
bh) co2 . ENDC 
\a) 
S40 012050 MEMINC IMM, TMLL ;STORE ADDRESS OF FIRST TMT LINK 
(1) 909021 MICPC=MICPC41 
f) 912050 S1BH?S MOVE! WRMEM! INCMAR! IMM! <TMLL>> 
c41 012052 MEMINC _IMM, TML1 
(1) 909032 MICPC=MICPC41 
1) o120s@ O1e473 (MOVE? WRNEM! INCMAR! INM! CTMLL> > 
S42 012054 MEMINC _IMM, TML1 
(1) 900033 MICPC=MICPC41 
(J) 912054 016473 MOVE !WRMEM! INCMAR! IMM! <TMiL> > 
£43 o120s¢ LOMA _IMM,SRC :LOAD ADDRESS OF LAST RECV CHAIN 
(1) oco034 NECPCaMrCPc4l | 
: Tae 051 IF IDN IMM, IMM 
(1) 022056 010022 MOVE !LOMAR! IMM! <SRC8377> > 
1) ‘MOVE! LOMAR! IMM! <SRC>> 
13 000 .ENDC 
FF. 
544 012060 MEMINC _IMM,RCL1 ;SET UP ADDRESS OF FIRST RECY LINK 
(1) 900035 MICPC=MICPC41 
i) c1egbo O1E42s (MOVE! WRMEM! INCMAR! IMM! <RCL1>> 
{13 
S45 012062 MEMINC _IMM,RCL1 
(3) 00003¢ MICPC=MICPC41 
(i G1e0be O1e4es HOVE? WRNEN# INCMAR! IMM! <RCLL> > 
(1) 
S4E 012064 MEMINC IMM, RCL1 
CL) 000037 MICPC=MICPCH1 
1) 012064 SLEN2E MOVE !WRMEM! INCMAR! IMM! <RCL1>> 
S47 012066 LOMA —_ IMM, NXTINT ADDRESS OF NEXT INTERRUPT POINTER TO MAR 
(1) poog40 MICPC=MICPC41 
(1) 001 IF ION IMM, IMM 
(1) o12066 010240 (MOVE !LDMAR! IMM: <NXTINT8377> 
(1) ‘MOVE! LDMAR! IMM! <NXTINT> > 
$e p00 -ENDC 
s48 012070 MEMINC IMM, INTSTK ; INITIALIZE NEXT INTERRUPT POINTER 
C1) 900041 MICPC=MICPCH1 
(i) 12070 D1ee4e MOVE !WRMEM!INCMARLIMM!<INTSTK>> 
(1) - 
s4o 012072 MEM IMM, INTSTK ; INITIALIZE INSERTION POINTER 
(1) ooco42 MICPC=MICPCH1 
(1) 12072 O0264e MOVE! WRMEM! IMM! < INTSTK> > 
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MACYL1 27(1006) Q7-MAR-77 16:24 PAGE 6-7 PAGE: 6073 
INIT--INITIALIZATION ROUTINE 

BRWRTE IMM, 200 +WRITE THE RUN BIT TC THE SR 

MICPC=MICPC4+1 

(MOVE! WRTEBR! IMM! <200> > 

Ou BR, «SELB! OMAIN> sWRITE THE RUN BIT TO MAINT CSR 


. 
MICPC=MICPE+! 
<MOVE ! WROUTX! BR! <SELB!OMAIN > 


;FALL INTO IDLE LOOP 
.IF NOF —OW 
ALWAYS IDLE 


REXIT: SP BR, SELB, SP3 


Neu ME D6-DEL-76 10:14 IDLE--PROGRAM IDLE LOOP 


$e NUT 8 De ge 
b+ b+ CY (1 b+ bs + 0 0 b= 0 (7 0 (0 


iene | Lente 
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-SBTTL IDLE--PROGRAM IDLE LOOP 
;PROGRAM IDLE LOOP 
SDISPATCHES TO APPROPRIATE SERVICE ROUTINES 


RQewe Me SEINE ew EE 


ww DOD w 


a 1 


Se TU wee ms we 


“USES STATE POINTERS FOR TMT,RCV,CSR ACTIVITY 
012100 IDLE: BRWRTE BR, <SELA!SP1O> :READ TRANSMIT STATUS WORD FROM SPIC To ae 
p0904s MICPC=MICPC+ 
Qi2100 o63610 (MOVE! WRTEBR! BR! <SELA'SP1O>> 
o12:02 BRI TMTDA :IF DATA TO SEND-- BRANCH 
ooco4s MICPC=MICPC+1 
012102 112400 < JUMP! BRICON! < TMTDA-INIT&3000%4> ! < TMTDA-INIT&777/2> > 
912104 BRO TMTDA :IF DATA TG SEND-- BRANCH 
000047 MICPC=MICPC+1 
o12104 112000 < JUMP! BROCON! < TMTDA-INIT&2000%4> !< TMTDA-INIT8777/2> > 
" 912106 ALWAYS Il 
2 pocoso MICPC=MICPC+1 
O12106 idc4se <JUMP! ALEONG! <I INIT$30G0%4> !<I1-INIT&777/2>> 
012110 XEXIT: §p BR, SELB, SPe 
090051 MICPC=MICPC+1 
912110 663223 CMOVE! SPX! BR! SELB! SP2> 
O12iie Il: BRWRTE IBUS,RCVCON ;READ LINE UNIT RECEIVE CONTROL WORD 
__ gog0s2 MICPC=MICPC+} 
Cl2ile 20645 «MOVE! WRTEBR! IBUS! <RCVCON> > 
o:2114 .BRY BR SELA, SP3! PAGE! :BRANCH BASED UPON RECY STATE 
on9053 MICPC=MICPC+1 
012114 167203 <JUMP! AEUCON! BR! SELA!SP2! PAGEL 
O12116 12: LOMA —_ IMM, PRTST :ADORESS PORT STATE 
oos0s4 MICPC= =MICPC+1 
90: IF IDN IMM, IMM 
O12i16 OLO1Ee CHOVE!LOMAR! IH! <PRTSTS377> 
<MOVE! LDMAR! IMM! <PRTST>> 
000 .ENDC 
3 012120 -ALWAY MEMX,SELB,O : INDEX 
} —  __ QOODES MICPC=MICPC+ 
) Qleleo 140€20 «JUMP! ALCOND! MEMX! SEL8!0> 
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pec 0 ODIMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE E-9 PaGE: SQ75 
| COCNEW. MRC | (OB-DECW76 1:15 BASSRV---- BASE SERVICE ROUTINE 





S75 .SBTTL BASSRV---- BASE SERVICE ROUTINE 
S76 012122 BASSRV: PSTATE NIDLE2 
(1) Olele2 MEM IMM, <<NIDLE2-INIT8777/2) > 
(2) poo0se MICPC=MICPCH1 
(2) 012122 002520 <HOVE! URNEN! Int <cNIOLE-INIT82777/2> > 
\@) 
S77? o12e12e4 LOMA _IMM, BASE -CLEAR TO MAR SO IT POINTS 70 BASE POINT 
(1) oooos7 NICPC=NICPCH 
(1) 001 IF IDN IMM, IMM 
(1) Ole124 010017 <MOVE !LOMAR! IMM! <BASE8377> > 
ae (MOVE! LDMAR! IMM! «BASED. 
3 p00 ENDC 
578 012126 MENINC IBUS, PORT! :READ CSRY 
Ch) oco062 MICPC=M 
h) 012126 136500 CMOVE!WRNEN? INCMAR! IBUS! <PORTI> > 
S79 0912130 MEMINC _IBUS, PORT2 :READ CSRS 
(13 Oc061 MICPC=MICPC+1 
(1) 012130 136520 (MOVE ! WRMEM! INCMAR! IBUS! <PORTE2>> 
580 012132 MEM IBUS, PORTY 
(1) oo0062 MICPC=MICPC+ 
oe 012122 122560 (MOVE! WRMEM! TBUS! <PORTY> > 
S81 012134 SP IBUS, INCON, SPO READ INPUT CONTROL CSR 
(1) 909063 MICPC=MICPC+ 
iL) 012134 122000 <MOVE !SPX! TBUS! INCON! SPO> 
S82 012136 BRWRTE IMM, 100 :CLEAR THE BR 
(1) o00064 MICPC=MICPC+1 
(1) 612136 900509 <MOVE! WRTEBR! IMM! < 100>> 
# 
562 012140 OUT BR, <AANDB! OINCON> sCLEAR THE INCONTROL CSR 
(1) 009065 MICPC=MICPC+1 
1) 012140 961260 (MOVE ! WROUTX! BR! <AANDB! OINCON> > 
\ 
584 o12142 BRWRTE IMM. 120 ; MASK FOR HDX AND DTR 
(1) coco MICPC=MICPC41 
cd) 012142 000520 «MOVE! WRTEBR! IMM! <120>> 
585 012144 OUTPUT BR. <SELB!OMODEM> 
(1) 00007 MICPC=MICPC+1 
1) 012144 962233 (MOVE !WROUT! BR! <SELB!OMODEM> > 
3 - 
S86 012146 BRWRTE  MENX, SELB sREAD SEL 
C1) 000970 MICPC=M 
(1) 012146 O40620 CMOVE! WRTEBR! MEMX! <SELB> > 
,1) 
S87 012150 BR RESUME :IF SET RESUME 
(1) 000071 MICPC=MICPC+1 
1) oi21s0 103100 JUMP? BRICON! «RESUME - -INIT$3000%4> ! <RESUME-INIT8?777/2>> 
y] 
See ol21se LOMA ss IMM sLOAD ADDRESS OF TYPE FIELD 
(1) oo9072 HPCPCAMICPCH 
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1) 

89 012154 
a) 012154 
{ 

S60 12156 
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541 012160 
(1) 

(1) o1z160 
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oe 012162 
$93 012164 
,4) 

i) o1eie4 
so 012166 
oe 012166 
{]) 

695 012170 
(i) 

(1) 012170 
(1) 

ca 

597 912178 
(1) 

(1) 012172 
(1) 

(1) 

(1) 

(1) 

S98 012174 
Ci) 

(1) 912174 
599 01217 
(1) 012176 
600 012200 
(1) 

(1) 

(1) o12200 
(1) 
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016406 
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002700 
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OOSO7E 
000641 


090077 
110733 
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003004 


000101 
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RESUME : 
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LOG 


Uhl 27( 1006). O7-MAR-77 16:24 PAGE &-iC 
Bass RV---- BASE SERVICE ROUTINE. 


IF ION IMM, IMM 
(MOVE! LOMAR! IMM! <T8377>> 


IFF 
CMOVE!LDMAR! IMM! <T>> 
-ENDC 


MEMINC IMM,6 :WRITE START TYPE TO MEMORY 
MICPC=MICPC41 
(MOVE! WRMEM! INCMAR! IMM! < &> > 


MEM IMM, 300 “WRITE SELECT AND FINAL TC MEMORY 
MICPC=MICPC41 
«MOVE! WRMEM! IMM! <300>> 


sp BR, DECA, SP1 TURN OFF INIT MODE 
MICPC=MICPC+1 
«MOVE! SPX! BR! DECA! SP1> 


BRWRTE IMM, 241 
MICPC=MICPC41 
«MOVE! WRTEBR! IMM! <241>> 


ALKAYS SAI 
MICPC=MICPC+1 
«JUMP! ALCOND! <SA3- ~1NIT8300084)! <SA3-INIT877772>> 


ce IMM, SP4,4 :SET UP SP4 FOR COUNTING NPRS 
MICPC=MICPC+1 
«MOVE! SPX! IMM! SP4!4> 


;SET OK TO SEND,STARTMODE AND UNNUM PENDING 


SP BR, INCA, SP10 ;SET UNNUMB MESSAGE PENDING TO 
MICPC=MICPC+1 
«MOVE! SPX! BR! INCA! SP10> 


; TRICK TRANSMITTER CODE 


MA IMM, BASE ADDRESS BASE TABLE ADDRESS 


LD 
HicPc=nicectI 

IF IDN IMM, IMM 

HOVE! LOMAR! IMM! <BASE8377> > 
<MOVE! LDMAR! IMM! <BASE>> 
.ENDC 


STATE FUDGE ;SET TMTR STATE TO ENTER TABLE UPDATE 


MICPC=MICPC+1 
(HOVE? WRTEBR! IMM! <FUDGE- INIT&777/2>> 


ALWAYS TBO ;GO SET UP MXT BITS AND ADRESS OF BASE FOR NPRS 


MICPC=MICPC+1 
< JUMP! ALCOND! < TBO-INIT&3000%4> ! < TBO-INIT87772>> 


LDMA IMM, IMG1O 
HICPCSMICPCHi 


IF IDN IMM, IMM 
«HOVE! LOMAR! IMM! <IMG108377>> 
<MOVE!LDMAR! IMM! <IMG1O>> 
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-DMCLL DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-11 PAGE: 
'BDENEW.MAC }6©6—-«d B-DEC-76 10:14 BASSRV---- BASE SERVICE ROUTINE 
4) p00 -ENDC 
601 o12202 sp MEMX, 9ORB, SP10 :RESTORE BIT 1 OF SPIO 
(1) 900106 MICPC=MICPC+i 
1) 012202 043310 <MOVE ! SPX! MEMX! AORB! SP10> 
\ 
602 o12204 SP MEMX! INCMAR, SELB, SP11 sRESTORE SP1i 
(1) 900107 MICPC=MICPC+i 
(1) 012204 057231 «MOVE! SPX! MEMX! INCMAR! SELB!SP11> 
603 012206 SP MEMX! INCMAR, SELB, SP12 :RESTORE SFl2 
(1) 000110 MICPC=MICPC+1 . 
(h) 012206 057232 «MOVE ! SPX! MEMX! INCMAR! SELB! SP 12> 
604 012210 sp MEMX, SELB, SP17 : RESTORE SP17 
(1) 000111 MICPC=MICPC+l 
1) 012210 043237 (MOVE! SPX!MEMX! SELB! SP17> 
605 012212 sp BR, DECA, SP1O ; TURN OFF UNNUM MESSAGE PENDING AND 
(1) ooc112 MICPC=MICPC+1 ' 
h) 012212 063179 «MOVE! SPX! BR! DECA! SP10> 
£06 ‘ sZERO THE SRG 
697 012214 STATE NIDLE2 :PORT STATUS 
(1) 900113 MICPC=MICPC+1 
(1) 012214 o00520 (MOVE! WRTEBR! IMM! <NIDLE2-INIT877772>> 
608 Ol22it SP BR, SELB, SP13 SAVE IN SP13 - NOTE THAT STATUS READ INTO - 
(1) 909114 MICPC=MICPC+1 
ch) 012216 063233 «MOVE ! SPX!BR! SELB! SP13> 
6093 :RAM WAS TABLE UPDATE WHICH SAVED STATUS IN SP13 
610 o12220 sp BR, DECA, SP! :CLEAR INIT MODE 
(1) 900115 MICPC=MICPC+1 
() 012220 063161 <MOVE ! SPX!BR! DECA! SP1> 
&1l Olez22 © BRWRTE IMM, 200 :SET OK TO SEND 
(1) 000116 MICPC=MICPC41 
1) Ol2222 900600 (MOVE! WRTEBR! IMM! <200> > 
a . 
ble 012224 ALWAYS SA 
(1) 000117 MICPC=MICPC+1 a 
(1) 012224 110733 < JUMP! ALCOND! <SA3-INIT&83000%4> ! <SA3-INITS$777/2>> 
,43 
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MACY11 27(1006) O7-MAR-77_ 16:24 PAGE E-le 
NIDLE2---NO CSR ACTIVITY STATE 


NIDLEe: BRURTE BR, SELA!SP1 ;READ PORT STATUS WORE 


NIOLE6: 


10$: 


BRSHF T 
-MICPC= 


NOG 


. SBTT re CSR ACTIVITY STATE | 


=MICPC+1 
(MOVE! WRTEBR! BR! <SELA!SP1>> 


.IF NDF SLOW 
BRY NIDLES 
ENDC 


.IF DF $LOW 

RY QUTIN 
MICPC=MICPC+1 

< JUMP! BRYCON! <OUTINT-INIT83000%4> ! <OUTINT-INIT877772> > 


; INTERRUPT PENDING?---BRANCH 


-ENDC 
SPBR _IBUS, INCON, SPO :READ INPUT CONTROL CSR ‘ 
MICPC=MICPC+1 . 
«MOVE! SPBRX! IBUS! INCON! SPO> j 


nICPC#! ;SHIFT IT RIGHT 
(MOVE! SHE TBR! WRTEBR! SELB> 


Pees meena: ;IF RQI SET -- BRANCH , 
JUMP? BRICON! < INWATI~ ~INIT83000%4> ! < INWAT1- ~INIT8777/2)> 


TO RE-READ THE IN CNTRL REGISTER TO AVOID 
!@ RACE IN MICRO-P READ/UNTBUS WRITE 

BRWRTE BR SELA!SPI READ PORT STATUS 

MICPC=MICP 

(MOVE !IRTEBR! BR! <SELA!SP1>> 

IF NOF SLOW | 

BRO IDLE 

LIF OF, SLOW 


ore 10 
MICPC=MICPC+1 
<JUMP! BROCON! < 10$-INIT83000%4> ! «10$-INIT8&777/2>> 


SPER. 2BUS  UBBR, SPO ; TIMER EXPIRES? 

<HOVE! SPERX! IBUS! UBBR! SPO> 

BR aattgRY 

MICPC=MICPC+1 

(JUMP! BRUCON! < TIMSRY-INIT83000%4> # <TIMSRY~INIT8777/2>> 
LIFPNOF SLOW : 

ALWAYS IDLE 

-ENDC 

‘IF OF $LO , , 

cpr TRUS, MODEM, SPO ;READ MODEM CONTROL CSR 

MICPC=MICPC+ 


<MOVE ! SPBRX! IBUS! MODEM! SPO> 
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1 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 9O7-MAR-77 16:24 PAGE 6-12 PAGE: 9079 

-MAC)8©30« OB-DEC-76 10:14 NIDLE2---NO CSR ACTIVITY STATE 

012252 BRWRTE 8R,AA!SPO :SHIFT IT LEFT 
000122 _ MICPC=MIcPt+1 

O12es2 060520 CHOVE!WRTEBR!BR! <AA! SPQ) > 

012254 BRY SETDSR -IF DSR SET, CLEAR FLAG 
000133 MICPC=MICPC+1 

012254 103150 < JUMP! BRYCON! <SETDSR-INIT&3000#4> ! <SETDSR-INIT8777/2> > 

012256 BRWRTE BR SELA!SP1O ;READ LINE STATUS WORD 
000134 MICPC=MICP 

012256 060610 THOVETWRTEBRIBR! <SELA!SP10)> 

012260 BRSHFT 
000135 MICPC=MICPC+1 

012260 001620 <MOVE ! SHF TBR! WRTEBR! SELB> 

012262 BRY IDLE START MODE 
000136 MICPC=MICPC+1 

012262 103045 < JUMP! BRYCON! < IDLE-INIT&3000%4> ! < IDLE-INIT8777/2>> 

012264 BRWRTE BR,AA!SPL :READ PORT STATUS WORD 
000137 MICPC=MICPC+1 

012264 060521 (MOVE! WRTEBR! BR! <AA!SP1>> 

G12266 BRI IDLE ; INIT MODE 
000146 MICPC=MICPC+1 

012266 102445 < JUMP! BRICON! < IDLE-INIT&3000%4> ! < IDLE-INIT8777/2>> 

012270 BR? IDLE DISCONNECT ERROR ALREADY SENT 
000141 MICPC=MICPC+1 

012270 103445 < JUMP! BR7CON! < IDLE-INIT&3000%4> ! < IDLE-INIT&777/2> > 

012272 SPBR 1BUS MAIN,SPO ;READ THE MAINT REGISTER 
000142 MICPC=MICP 

012272 i234e0 CMOVE ! SPBRX! IBUS! MAIN! SPO> 

012274 BRWRTE BR, ADD!SPC SHIFT LEFT 
900143 MICPC=MICPC+1 

012274 o60400 SHOVE TWIRTEBR! BR! <ADD! SPO> > 

012276 : BRY IDLE ;LU LOOP -- EXIT 
900144 MICPC=MICPC+1 

012276 103045 < JUMP! BRYCON! < IDLE-INIT&3000%4> ! < IDLE-INIT&77772>> 

012300 BRWRTE IMM, 100 :WRITE DISCONNECT ERROR 
000145 MICPC=MICPC41 

012300 000500 (MOVE! WRTEBR! IMM! < 100>> 

012302 SP BR, AORB, SP1 FLAG ERROR RECORDED 
000146 MICPC=MICPC+1 

012302 06330! «MOVE! SPX! BR! AORB! SP1> 

012304 ALWAYS ERRXX :MAKE A CONTROL OUT 
000147 MICPC=MICPC+1 

612304 114671 < JUMP! ALCOND! <ERRXX-INIT83000%4> ! <ERRXX-INIT8777/2> > 
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CO? 
MACY11 27(1008) Q7-MAR-77_ 16:24 PAGE &-14 PAGE: ded 
NIDLE2-=-NO CSR ACTIVITY STATE 


SETDSR: BRWRTE IMM,277 ;CLEAR DISCONNECT ERRCR FLAG 
MICPC=MICPC41 
CHOVE TWATEBR! IMM! <277)9 
ALWAYS CLRIDL 
MICPC=MICPC+1 
< JUMP! ALCOND! <CLRIDL- INIT&83000%4> ! <CLRIDL-INIT&77772) > 
.ENDC 
-IF NOF SLOW 
NIDLES: STATE OUTINT :SET STATE FOR INTERRUPT PROCESSING 


Lr J 


| DMC11 a PROTOCOL a ty hana MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-15 
| DDCNEW. O6-DEC-76 10:1 INWAIT---WAIT FOR RQI TO CLEAR 






















| 
| 663 .SBTTL INWAIT---WAIT FOR ROI TO CLEAR 
664 012312 INWAIT: SPBR —_IBUS, INCON, SPO ;READ INPUT CONTROL CSR 
(1) 000152 MICPC=MICPC+ 
(1) oleae 123400 <MOVE ! SPBRX! IBUS! INCON! SPO> 
665 012314 BRURTE BR, <AA!SPO> ;SHIFT IT LEFT 
| (1) 900153 MICPC=MICPC+1 
(1) 012314 060520 COVE! WRTEBR! BR! <AA! SPO> 
| 66 o1ea16 BR? NIDLE3 ; INTERRUPT ENABLE HAS BEEN SET 
(1) 000154 MICPC=MICPC+1 
(1) 012316 103557 < JUMP! BR7CON! <NIDLE3-INIT&3000%4> ! <NIDLE3-INIT8777/2) > 
667 
| §68 012320 INWAT1: SPBR —_IBUS, INCON, SPO ;READ THE INPUT CONTROL CSR 
wate 000155 MICPC=MICPC+1 
| (1) dleg20 123400 <MOVE! SPBRX! IBUS! INCON! SPO> 
\ 
669 012322 BR? INWAT2 ;READY IN STILL SET 
(1) o0c1s¢ MICPC=MICPC+1 
(1) 012322 103566 < JUMP! BR7CON! < INNAT2-INIT&3000%4> ! < INNAT2-INIT877772>> 
4 
670 012324 NIDLE3: PSTATE INWATI UPDATE STATE TO INPUT 
| (2) O1e3e4 MEM IMM, << INWAT1-INIT877772) 3 
| (8) 000157 MICPC=MICPC41 
| g) 012324 OoessS (MOVE ! WRMEM! IMM! << INWAT1-INIT&77772> >> 
} 
| 671 012326 BRWRTE BR, AA!SPO ;SHIFT CSR LEFT 
; oD) 000169 MICPC=MICPC+1 
| $1) 012326 060520 (MOVE! WRTEBR! BR! <AA! SPO > 
| 672 012330 BR? ININT 
Beat 000161 MICPC=MICPC+1 
G2) 012330 117458 < JUMP! BR7CON! < ININT-INIT&3000#4> ! < ININT-INIT&777/2>> 
673 012332 PSTATE INWAIT ;UPDATE STATE POINTER TO NO INTERRUPT GENERATED 
(1) 012332 MEM IMM, << INWAIT-INIT&?77772) 5 
(2) 000162 MICPC=MICPC41 
(¢) 012332 O0eSSe (MOVE! WRMEM! IMM! << INWAIT-INIT&777/2> >> 
674 012334 NIDLE: BRURTE IMM 200 
(1) 000163 MICPC=MICPCH1 
(1) 012334 000600 (MOVE! WRTEBR! IMM! <200> > 
675 012336 OUT BR, RORB! OINCON ;SET THE RDYI 
(1) 000164 MICPC=MICPC+1 
(1) 012336 061300 <MOVE! WROUTX! BR! <AORB! OINCON> > 
676 012340 ALWAYS IDLE 
(1) 000165 MICPC=MICPC+1 
(1) 012340 100445 JUMP! ALCOND! < IDLE-INIT&3000#4> # < IDLE-IN1 "2777/29 
677 ; 
678 Ole34e INWAT2: BRSHFT ;SHIFT THE BR RIGHT 
(1) OO01b6 MICPC=MICPC+1 
(1) Ol2242 9001620 <MOVE! SHF TBR! WRTEBR! SELB> 
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MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-16 PAGE: 
INWAIT---WAIT FOR RQI TO CLEAR 
BRY NIDLE& ;RQI SET--- GO AWAY 
MICPC=MICPC+1 
«JUMP! BRYCON! <NIDLEG-INIT&3000#4> ! <NIDLES-INIT877772>> 
.IF NDF SLOW 
PSTATE INSRV ;SET NEXT STATE TO INPUT SERVICE 


INSRV: 


10$: 


15$: 


ALWAYS IDLE 


NDC 
SPER Oe INCON, SPO ;READ THE INPUT CONTROL CSR 
<HOVE! SPBRX! TBUS! INCON! SPO> 


BRI (305 ;--SENSE OR BASE 
NICPC=MICPC+1 : 

< JUMP! BRICON! < 30$-INIT&3000#4> ! 30$-INIT8777/2> > 
BRO 108 ;CNTL ‘I 
MICPC=MICPC+1 

(JUMP! BROCON! <108-INIT83000#4) ! < 108-INIT8777/2> 


BRSHF T ;MUST BE BA’CC-SHIFT FOR IN OR CUT 
MICPC=MICPC+1 
«MOVE! SHF TBR! WRTEBR! SELB> 


BR1 1S$ 
MICPC=MICPC+1 

< JUMP! BRICON! <1S$-INIT$3000#4> ! < 1S$-INIT8777/2>> 
PSTATE TBASRY ; TRANSMITTER 
MEM IMM, << TBASRV-INIT8777-2> } 

MICPC=MICPC41 

<MOVE ! WRMEM! IMM! << TBASRY-INIT877772) >> 


ALWAYS 20S 
MICPC=MICPC+1 
< JUMP! ALCOND! «208-7 '"T&3000#4> ! <20$-INIT387772>> 


psTaTe CTLSRV 
MEM MM. <<CTLSRV-INIT8777/2 > 
MICPC=MICP Pct 


(MOVE! WRMEM! IMM! <<CTLSRV-INIT8777/2>>> 


ALWAYS coe 
MICE ante 
JUMP? ALCONO! <20S-INIT83000%4> ! <20$-INIT877772>> 


PSTATE RBASRV 
MEM IMM. < <RBASRV-INIT3777 72> > 
MICPC=MICPC41 

CMOVE ! WRMEM! IMM! < <RBASRV-INIT8?7772> >> 


BRWRTE BR SELA! SPI ; INIT MODE 
MICPC=MICP 
HOVE! WRTEBR! BR! <SELA!SPL>> 
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MP PROTOCOL IMPLEMENTATION 
wo OB-DES-76 1 


308: 


35$: 


308: 


35$: 


PROCER: 


~“ 
: 


MACY11 °7( 1096) O7-MAR-77 16:24 PAGE 6-17 
Waa.” WAT FOR RQI TO CLEAR 


BRO wee sIF INIT MODE--ERROR 

«JUMP! BAGCON! <PROCER- -INIT&3000#4> ! <PROCER-INIT8777/2> > 

ALWAYS IDLE. 

MICPC=MICPC+! 

< JUMP! ALCOND! < IDLE-INIT83000%4> ! < IDLE-INIT8777/2) > 

.IF NDF $LOW 

PSTATE BASSRV 

BRO 353 sIF BASE -PROCESS 
PROCER ; 

BRWRTE BR,SELA!SP! s INIT MODE 
IDLE 

‘IF OF $LOW 

B 35$ 

MICPC=MICPC+1 

JUMP! BROCON! <3S$-INIT&3000#4> # <25$- INIT8777/2>> 


ee PROCER 
MICPC=MICPC+1 


< JUMP! ALCOND! <PROCER-INITS3000#4> ! <PROCER-INIT8777 72> > 
BRWRTE BR,SELA!SP1 « ; INIT MODE? 
MICPC=MICPC+1 

«MOVE! WRTEBR! BR! <SELA!SP1>> 

BRO BASSRY 

MICPC= 


MICPC+1 
«JUMP! BROCON! <BASSRV- ~INIT&3000#4> ! <BASSRY-INITS777/2>> 


. ENDC 

BRWRTE IMM, 100 
MICPC=MICPC+1 

«MOVE! WRTEBR! IMM! < 10C>> 


OUT BR, AANDB! OINCON 33 
MICPC=MICPC+1 
«MOVE! WROUTX! BR! <AANDB! OINCON> > 


LOMA —_—sIMM. <<RTHRS+3>> 
MICPC=MICPC41 


_IF IDN IMM, IMM 
(MOVE! LOMAR! IMME « <RTHRS+3)8377> 
(MOVE !LDMAR! IMM! << RTHRS+3> >> 
.ENDC 


;CLEAR INPUT CONTROL CSA 


ADDRESS ERROR _ I" 


MEMINC IMM.2 
MICPC=MICPC$1 
(MOVE! WRMEM! INCMAR! IMM! <2>> 


MEM IMM, 0 
MICPC=MICPC+1 
(MOVE! WRMEM! IMM! <O>> 


; IF BASE---PROCESS 
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O7-MAR-77 16:24 PAGE 6-18 PAGE: S084 


STOCS IMPLEMENTATION —-MACY21_27(1006) 
Rethesose T5. 74 Ta de ton Ral to CLEAR 

lati OUTPUT. NENX, SELB! OMODEN SCLEAR DATA TERMINAL READY | 
Q42533 CMOVE! WROUT! MEMX! <SELB!CMODEM> > 

A ALWAYS RCEXX ;POST THE ERROR - FATAL 

c00217 MICPCEMICPC#1 | 

T:462° CTIMBI@LCOND! <RCEXX-INITS2000%4 # <RCEXX-INITS777/2> > | 

i 
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DMO DDCMP PROTOCOL IMPLEMENTATION MA evi 2? (1006) _O7-MAR-77 16:24 PAGE 6-19 








ll 
I DOCNEW.MAC = OB-DEC-76 10:14 OUTINT---SET UP OUTPUT INTERRUPT [RDYO] 

718 -SBTTL OUTINT---SET UP OUTPUT INTERRUPT [RDYO! 
719 012426 OUTINT: é; 
720 of! IF NOF $LOW 
721 PSTATE PINT2 
722 oo0 -ENDC 
723 001 LIF OF $LOW 
724 12426 PSTATE OUTWAIT -PORT STATUS TO WAITING FOR OUT 
(1) O12426 MEM IMM, <<OUTHAIT- -INIT877772)> 
(2) 00220 MICPC=MICPC#1 
g) G1e426 O0e6s4 (MOVE! WRMEM! IMM! << OUTWAIT-INIT&777/2> >> 
\e) 
725 p00 -ENDC 
726 ; COMPLETION 
727 012430 LOMA —_IMM, NXTINT ;ADDRESS OF NEXT INTERRUPT POINTER 
(1) 000221 MICPC=MICPC41 
(1) 091 IF IDN IMM, IMM : 
C1) 012430 010240 . «HOVE! LDMAR! IMM! <NXTINT8377>> 
(1) (MOVE! LDMAR! IMM! <NXTINT> > 
4) 900 . ENDC 
ka 2 
728 012432 LOMA —_MEMX, SELB ;NEXT INTERRUPT 
(1) 00222 NECPC=MICPC#l 
(1) O91 IF IDN 
oe Hove! LORE? tnt? <SELB8377> 
{1} O12432 os50220 <MOVE! LDMAR! MEMX! <SELB> > 
1) 690 .ENDC 
729° (012434 Se IBUS, OCON, SPO ;READ THE OUTPUT CONTROL CSR 
(1) 90222 MICPC=MICPC+ 
1) D12434 123086 (MOVE! SPX! TBUS! OCON! SPO> 
730 012436 OUT <MEMX! INCMAR> , <AORB! OOCON> ;WRITE THE OUT CONTROL CSR 
1) 000224 MICPC=MICPC+1 
(1) o12436 055302 <MOVE ! WROUTX? TMEMX! INCMAR! < AORB! ODCON 
73i o12440 LOMA _MEMX, SELB SADDRESS LINK 
(1) 00225 MICPC= snICPC#l 
(1) O01 IF ION ™ 
dh iHove! LOMAR? EMM! «SELBS377>» 
,i3 ° 
(1) Bl2440 oSc220 <MOVE !LDMAR! MEMX! <SELB> > 
1) ooo . ENDC 
732 ole44e BRWRTE <BR! INCMAR? , <AA!SPO> ;KICK PAST LINK STATUS BYTE 
(1) 00226 MICPC=MICPC+1 
(1) OlzH¥2 074520 <MOVE ! WRTEBR! BR! INCMAR! <AA!SPO> > 

y] 
733 HIFT CSRO_ IMAGE LEFT 
734 *D0 ry CHANGE 8R UNTIL BR7### 
735 O1e444 OUT <MENX! INCHARD , (SELB! oporti> ;WRITE LOW BYTE OF BA TO CSR 
(1) 000227 MICPC=MICPC+1 
(1) o1a444 OSEe4 <MOVE! WROUTX! MEMX! INCMAR! <SELB! OPORT1> > 

} 
73 


O1l2446 OUT <«MEMX! INCMAR> , <SELB!OPORTe2> ;WRITE HIGH BYTE OF BA TO CSR 
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“OMCL2 DDCMP PRO OCS. _INPLENENTATZON MACY11 27(1006) 07-MAR-77 1b: 24 PAGE 6-20 
(E5ENEW. MAC 060 D6= OUTINT---SET UP OUTPUT INTERRUPT [RDYC) 
(1) 909220 MICPC=MICPC+1 . 
1) o12446 oss22¢ <MOVE ! WROUTX! MEMX! INCMAR! «SELB! OPORT2> > 
737 «012450 OUT <MEMX! INCMAR> , <SELB! OPORT4> “WRITE HIGH BYTE OF COUNT TO 
1) 90023! MICPC=MICPC+ 
Ch o124so oss227 HOVE WROUTX! MEMX! INCMAR! <SELB! OPORTY > 
\ 
738 o124S2 OUT <MEMX! INCMAR> , “SELB! OPORT3> ;WRITE THE LOW BYTE OF COUNT 
(1) 000232 MICPC=MICPC+1 
dh) o1e4s2 os522€ (MOVE ! WROUTX! MEMX! INCMAR! <SELB! GPORT3> > 
739 ;¥#*HERE IS BR7#%% 
740 O124s4 BR? PEL INTERRUPT ENABLE IS SET 
(1) 090223 MICPC=MICPC+1 
(h) 012454 103760 < JUMP! BR7CON! <PE1-INIT&3000%4> ! <PE1-INIT877772>> 
} 
741 :GENERATE AN INTERRUPT 
742 901 | .IF NDF $LOW 
743 ALWAYS IDLE 
74i4 PINT2: PSTATE OUTWAIT 
74 oro .ENDC 
740 001 "IF DF SLOW 
74? O124ce PINT2: 
748 090 -ENDC 
743 1245 LOMA M, NXTINT sADDRESS NEXT INTERRUPT GUEUE , 
C1) 900234 nicPostiCect| 
(1) 501 IF IDN IMM, IMM 
iB O124S6 019240 (HOVE!LOMAR! IMM! <NXTINT8377> 
(1) - (MOVE!LDMAR! IMM! <NXTINT> > 
ch) 000 -ENCC 
(i) 
750 O12460 sp MENX SELB, SPO sCOPY ADDRESS FOR NEXT INT TO SPO 
(1) 000235 MICPC=MICPC+ 
oe o12e460 043220 «MOVE ! SPX!MEMX! SELB! SPO> 
751 ole4b2 MEM IMM, INTSTK ;ASSUME WRAP AROUND CASE - 
(1) _. 000236 MICPC=MICPC41 
ih) O1e462 O0264e <MOVE !WRMEM! IMM! <INTSTK> > 
752 O124E4 BRWRTE IMM. <<MMEND-2>> ADDRESS OF LAST INT IN STACK 
(1) 900237 MICPC=MICPC41 
dh) 012464 000776 <MOVE!KRTEBR! IMM! < <MMEND-2> >> 
752 O124EE CMP BR, SPO :SHOULD WE WRAP 
(1) 000240 MICPC=MICPC+1 
1) O12466 O60260 <SUBTC! BR! SPO> 
754 012470 < 2 ss : YES--BRANCH 
(1) oco241 MICPC=MICPC 
(1) 012470 101644 SIGE? COND! <SS- ~INIT83000%4> ! <S$-INIT&777/2> > 
76 012472 BRWRTE IMM.2 :OFFSET FOR NEXT POINTER 
(1) o00e4e2 MICPC=MICPCH1 
(1) 12472 0042 (MOVE! WRTEBR! IMM! <2>> 
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Dol] DOCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-21 
'EDENEW.MAC }6©= -D6-DEC-76 10:14 TINT---SET UP OUTPUT INTERRUPT [RDYO! 
756 12474 MEM BR, ADD! SPO :UPDATE POINTER 
(1) 900243 MICPC=MICPC+1 
ch 912474 Ogesen (MOVE! WRMEM! BR! <ADD! SPO> » 
78? 012476 5s: Sp MEMX, SELB, SPO -COPY POINTER TO SPO 
(1) o00244 MICPC=MIcPC+! 
oe 012476 043220 «MOVE ! SPX! MEMX! SELB! SPO> 
758 12500 LOMA IMM. NXTSP “PICK UP START OF IN GUELE 
ch) 000245 MICPC=MI misc 
(1) -IF ION IMM, IMM 
1) 012500 .010241 iHOVE!LOMAR! TMM! NXTSPB77>> 
(1) ¢MOVE!LOMAR! IMM! <NXTSP> > 
1) 090 END 
753 012502 CMP MEMX, SPO :COMPARE TO END 
(Li 000246 MICPC=MICPC+i 
(1) 912502 040360 <SUBTC! MEMX! SPO> 
ee 
760 o12es04 2 10$ sIF EQUAL--CLEAR INT PENDING 
1) 000247 MICPC=MICPC+1 
(1) 012504 101651 JUMP? COND! < 10$-INIT&3000%4) ! (10$-INIT877772> > 
ii2 
761 ol12506 ALWAYS IDLE 
(1) o00250 MICPC=MICPC+1 
oe 012506 if044e TUN? AL COND! < IDLE- -INIT&3000%4> ! <IDLE-INIT8777/2>> 
762 012510 10$:  BRWRTE IMM,357 :MPSK TO CLEAR INT PENDING 
(1) pone: MICPC=MICPC41 ; 
oe C12eS10 009757 ‘ THOVE? UR TEBR! IMM! <357> 
J 
762 012512 CLRIDL: SP BR, AANDB, SF1 
{1} 090252 MICPC=MICPC+1 
hb O12512 O8326! <MOVE! SPX! BR! AANDB!SP1> 
764 012514 ALWAYS IDLE 
(1) 900253 MICPC=MICPC+1 
ti o1e514 100445 <JUMP'@LCOND! <IDLE-INIT&3000#4>! <IDLE-INIT87772>: 
a a) 
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1 
OUTWAI-- 


OUTWAT: 


Ko? * 
27(1006) 9O7-MAR-77 16:24 PAGE 6-22 
WAIT FOR RDYO TO GO AWAY 
~SBTTL OUTWAI--WAIT FOR ROYO TS GO AWAY 
SPER IBU : OCON, SPO > READ SUTPUT CONTROL CSR 
SHOVE TSPBRX! TBUS! OCON! SPO» 
BR7 NIDLE6 sRDYO SET --GET OUT 
MICPC=MICPC+1 
MEAD TORS CONS (NIDLES- INI T&83000#4> !<NIDLEE-INIT&777/2> > 


BRWRTE IMM, 100 :CLEAR CONTROL BITS 
MICPC=MICPC41 
«MOVE! WRTEBR! IMM! < 100>> 


OUT BR, OOCON! AANDS 
MICPC=MICPC+1 
<MOVE ! WROUTX! BR! <OOCON! AANDB> > 


ALWAYS INS13 . 
MICPC=M ICPC+1 
«JUMP! ALCOND! < INS! x daha iti aaaiadinatnaiel 


ro 






















LO? 
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I SOCNEW.MAC © -OB-DEC-76 10:14 CTLSRV--CNTL I SERVICE 
773 .SBTTL CTLSRV--CNTL I SERVICE 
774 012530 CTLSRY: SPBR _ IBUS, PORT4, SPO :TO SFO 
(1) po02¢ 1 MICPC=MICPC+ 
ih) 012530 123Sé0 <MOVE! SPBRX! IBUS! PORT4! SPO> 
sii 
775 012532 BRSHF T 
(1) o00262 MICPC=MICPC+1 
ib) 912532 o01620 (MOVE ! SHF TBR! WRTEBR! SELB> 
776 012534 BRI HDSEL :IF SET IS HALF DUPLEX 
(1) 009263 MICPC=MICPC+1 : 
cD) 012534 102755 «JUMP! BRICON! <HDSEL-INIT83000%4> ! <HDSEL-INIT8777/2) > 
} mind 
777 (012536 BRWRTE IMM, 100 :MASK FOR DTR 
(1) 900264 MICPC=MICPC41 
1) 012536 ooosoc (MOVE! WRTEBR! IMM! <100>> 
y] 
778 012540 GUTPUT BR, SELB! OMODEM ;TURN OFF HALF-DUPLEX 
(1) p002e5 MICPC=MICPt+1 
ch) 012540 0&2233 <MOVE ! WROUT! BR! «SELB! OMODEM > 
779° «12542 INS11: BRWRTE DP,<SELA!SPO> :RESTORE THE CNTL WORD 
(1) 000266 MICPC=MICPC+1 ' 
(1) O1as42 060690 «MOVE! WRTEBR! DP! <SELA!SPO> > 
780 912544 BRO CBOOT SIF SET IS BOOT 
C1} ~ 990267 MICPC=MICPC+1 
oe 012544 102276 < JUMP! BROCON! <CBOOT-INIT83000%#4> ! <CBOOT-INIT&777/2> > 
761 o1e546 INS12: SP IBUS, INCON, SPO ;READ THE INPUT CONTROL CSR 
(1) 000270 MICPC=MICPC+ 
ch) 012546 123000 <MOVE ! SPX! TBUS! INCON! SPO> 
782 012550 BRWRTE IMM, 100 ;ZERO THE BR REGISTER EXCEPT INT ENABLE 
(1) 009271 MICPC=MICPCH1 
1) o1ess0 909500 (MOVE! WRTEBR! IMM! <100>> 
783 o125s2 OUT BR, <AANDB! OINCON> sCLEAR IN CONTROL CSR 
(1) 900272 _ MICPC=MICPé+1 
1) o125S2 061260 <MOVE ! WROUTX! BR! <AANDB! OINCON? > 
784 612554 LOMA —_—sIMM, PRTST sADDRESS PORT STATE 
(1) 000273 MICPC=MICPC41 
(1) -IF ION IMM, IMM 
i) 012554 o10i62 ‘Move !LOMAR! IMM! <PRTST8377>» 
, - . 
(1) (MOVE! LDMAR! IMM! <PRTST>> 
1) 990 .ENDC 
J 
785 o1esse INS13: PSTATE NIDLE2 
(1) 012556 MEM IMM, <<NIDLE@-INIT8777/2> > 
(3) 000274 | MICPC=MICPC41 
(2) O1e5S6 902520 <MOVE ! WRMEM! IMM! < <NIDLE2-INIT8777"2> >> 
ec) 
78 012560 ALWAYS IDLE 


009275 MICPC=MICPC+1 
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O7-MAR-77 16:24 PAGE 6-24 


CTLSRV--CNTL I SERVICE 
«JUMP! ALCOND! < IDLE-INITS&3000#4> ! < IDLE-INIT&77772>> 


CBOOT: 


BRWRTE IMM, 200 
MICPC=MICPC+1 
MMOVE !WATEBR! IMM! <200> 


SP BR, AORB, SP1 
MICPC=MICPC+1 
<MOVE! SPX! BR! AORB! SP1> 


BRWRTE IMM,204 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM! <204> > 


SP BR 5 aa SP10 
MICPC=MICPC+ 
(HOVE? SPX! BR! SELB! SP10> 


ALWAYS INS12 
MICPC=MICPC+1 


ee eee + ee Se ee 


;MASK FOR BOOT MODE 


;IN PORT STATUS WORD | 


;MASt FOR OK TO SEND AND LINE IDLE 


;IN LINE STATUS 


«JUMP! ALCOND! < INS12- ~INIT&83000#4> $< INS12-INIT&77772)> > 


em = - eee 


PAGE: 


G993C 
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BOCNEW.MAC  O6-DEC-76 10:1 TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE 
754 .SBTTL TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE 
79S 012574 TeASRY: LDMA _IMM.ETC :GET POINTER TO END GF TMT CHAIN 
(1) 000303 NICP CanICPCH 
3 ie 901 F JON IMM 
1) 012574 010072 ihov Noman! TMM! <ETCB377>> 
(1) <MOVE !LDMAR! IMM! <ETC> > 
1) 000 END 
796 1257 LDMA _MEMX. <SELB!SPX!SPO> sFIND THE LINK 
(1) 000304 NICPC=MICP C+ He 
(1) 001 IF ION 
(1) Hove! LOM! tf SELB! SPx!SPO8377> 
(1) 012576 053220 (MOVE! LDMAR! MEMX! «SELB! SPX! SPO> > 
(1) 000 -ENDC 
797 012600 MEMINC IMM, 1 ;BUFFER ASSIGNED IN IN LINK FLAGS 
(1) 080305 MICPC=MICPC41 
) 012600 16401 y CHOVE? WRMEM! INCMAR! IMM! <1>> 
798 012602 BRWRTE <IMM! INCMAR> ,6 :POINT PAST NUMBER FIELD 
(1) 200306 MICPC=MICPC+1 | . 
i) Ole602 O14406 «MOVE! WRTEBR! IMM! INCMAR! <6)> 
749 -SET BR FOR ADDITION TO SPO 
g00 o12604 MEMINC IBUS,PORTI 
(1) 909307 MICPC=MICPC+1 
ib) 012604 136500 «MOVE! MRMEM! INCMAR! IBUS! <PORT1 >> 
801 Ol2606 MEMINC IBUS, PORT2 
(1) 000310 MICPC=MICPC+1 
1) 012606 136520 (MOVE ! WRMEM! INCMAR! IBUS! <PORT2> > 
gO2 012610 MEMINC IBUS,PORTY 
(1) 909311 MICPC=MICPC+ 
Ch) 012610 136560 TU EVETLRMEM? INCMAR! IBUS! <PORT4> > 
J 
B03 012612 MEMINC IBUS,PORT3 
(1) 000312 , MICPC=MICPC+i 
(1) 012612 136540 <MOVE ! WRMEM! INCMAR! IBUS! <PORT3> > 
804 012614 SP BR ADD , SPO OFFSET TO NEXT TRANSMIT LINK 
(1) 000313 MICPC=MIC 
1) 012614 063000 t <MOVE! SPX! BR! ADD! SPO> | 
4 
805 012616 BRWRTE IMM,T ;LOAD, BR WITH ADDRESS OF CHAIN END 
(1) 000314 MICPC=MICPC41 v 
1) 012616 900553 pon daiaapeie 
3 o 
806 012620 LDMA 
(1) 000315 LMP CeMIOPChT 
(1) 091 -IF ION IMM, IMM 
(h) 012620 010072 «HOVE !LOMAR! IMM <ETC8377>» 
(1) <MOVE!LDMAR! IMM! <ETC>> 


| B03 


!OMCL1 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-26 PAGE: 909¢ 
DDCNEW.MAC  O&-Dec-76 20:14 TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE 
1) occ -ENDC 
(]) 
807 012622 CMP BR, SPO :END OF CHAIN? 
(1) 000316 MICPC=MICPC+1 
1) 012622 060369 <SUBTC! BR! SPO> 
808 012624 2 20$ : IF YES--BRANCH 
(1) 000317 MICPC=MICPC+1 
(1) 012624 101724 < JUMP! ZCOND! <20$-INIT&3000%4> ! <20$-INIT&777/2>> 
809 012626 MEM BR, SELA! SPO ;UPDATE THE END POINTER IN MEMORY 
1) 900320 MICPC=MICPC+1 
(1) 012626 062600 «MOVE ! WRMEM! BR! <SELA!SPO> > . 
810 012630 10$:  BRWRTE IMM.2 sNUMBERED MSG PENDING MASK 
Byais 000321 MICPC=MICPC41 
| (1) 012630 900402 «MOVE! WRTEBR! IMM! <2>> ° 
4 
811 012632 SP BR ORB, SP10 sUPDATE LINE STATUS 
(1) 900322 MICPC=MICPC+ 
1) 012632 063310 «MOVE! SPX! BR! AORB! SP10> 
812 012634 ALWAYS INS12 
oes * 000323 MICPC=MICPC+1 
| (1) 012634 100670 < JUMP! ALCOND! < INS12-INIT&3000%4> ! <INS12-INIT8&777/2>> 
1) 
@13 012636 20$: MEM IMM, TML1 WRAP IT AROUND 
(1) 900324 MICPC=MICPC41 
ch) 012636 002473 «MOVE! WRMEM! IMM! <TML1>> 
B14 012640 | ALWAYS 10% ; CONTINUE PROCESSING 
(1) 000325 MICPC=MICPC+1 
| 1) 012640 10072} OT uMB! ALEOND! « 108- -INIT&30C0#4> ! < 10$-INIT8777/2>> 
= 
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| 
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DMC11 oDcM PROTOCOL IMPLEMENTATION MACYL1 27(1006) O7-MAR-77 16:24 PAGE 6-27 PAGE: 
DDCNEW.MAC  O6-DEC-76 10:1 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 
816 .SBTTL RBASRV--RECEIVE BUFFER ADDRESS SERVICE 
817 Cl2b42 RBASRV: LOMA IMM. ERC “ADDRES END OF RECEIVE CHAIN 
(1) 000326 MICPC=MICPCH1 
(1) 1 LIF TON IMM, IMM 
1) 012642 010023 HOVE LORAR! THM? (ERC8377> 
(1) <MOVE ! LDMAR! IMM! <ERC> > 
) 900 -ENDC 
818 O12644 LOMA = MEMX. <SELB!SPX! SPO» ;GET THE POINTER TO LINK 
(1) 000327 MICPC=mICcPC+i 
(1) 001 .IF IDN MEMX, IMM 
1) HOVE !LOMAR! IMM! <SELB! SPX!SP08377> 
| (1) 012644 053220 “MOVE ! LDMAR! MEMX! <SELB!SPX!SPO> > 
(1) doc  ENDC 
819 Ol2b46 MEMINC IMM, 1 
(1) C00330 MICPC=MICPC41 
(1) 012646 Oj6401 (MOVE! WRMEM! INCMAR! IMM! <1>> 
820 012650 MEMINC IBUS,PORT1 
| =f) 000331 MICPC=mMICPC+i 
1) 012650 136500 <MOVE ! WRMEM! INCMAR! IBUS! <PORT1>> 
| 821 O126s2 MEMINC IBUS,PORT2 
(1) 000332 MICPC=MICPC+i 
(1) 012652 136529 <MOVE ! WRMEM! INCMAR! IBUS! <PORT2> > 
| { 
| 822 o12654 MEMINC IBUS, PORTH 
1 CD 000333 MICPC=MICPC+1 
| (1) 012654 136560 <MOVE! WRMEM! INCMAR! IBUS! <PORTY> > 
| 823 O12656 MEMINC IBUS,PORT3 ar 
i (f) “ 000334 MICPC=MICPC+i 
(1) 012656 136540 (MOVE ! WRMEM! INCMAR! IBUS! <PORT3> > 
4 
g24 --NOTE INVERTED ORDER OF PORT 3 AND PORTH 
B25 012660 A IMM, ERC 
(13 000335 MICPC=MICPCH1 
(1) i -IF IDN IMM, IMM 
(1) Gl2660 910023 4 (HOVE!LOMAR! IMM! <ERC8377> 
(13 : <MOVE! LDMAR! IMM! <ERC>> 
| (1) 000 .ENDC 
| g26 O12662 MEM IMM, RCL1 sASSUME WRAP AROUND CASE 
i oy 000336 MICPC=MICPC41 
| (1) 012662 O02e425 (MOVE! WRMEM! IMM! <RCL1>> 
«BR? sO 2664 BRWRTE IMM,RCL7 :GET ADDRESS OF END OF CAHIN AREA 
(1) 000337 MICPC=MICPC#1 
(1) 012664 O00463 (MOVE! WRTEBR! IMM! <RCL7>> 
8 Ol2bb6 CMP :CHECK FOR END 
J 
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SDCNEW.M O6-DEC-76 

(1) 01266 960360 
) 

829 012670 
(1) 000241 
1) 012670 101670 
830 012672 
(1) 000342 
(1) 012672 OO04OS 
\ 
831 012674 
(1) 000343 
(1) 012674 ObeH00 
832 012676 
(1) ooo344 
(1) 012678 100870 
832 012790 
(1) occ34s 
(H) 12700 900717 
£34 012702 
(1) 000346 
(1) 012702 063670 
835 012704 
(1) 000347 
(1) 12704 ooDHOD 
836 012706 
(1) 000350 
(1) 012706 063233 
837 012710 
(1) 909351 
(1) 012710 9S00424 
838 Ole7le 
(1) 900352 
(1) ove7ia 104422 
239 
840 012714 
(1) 000353 
(1) o1e7i4 00462 
841 012716 
(1) 000354 
(1) 012716 114871 
g42 
643 001 
e4y 
Gus 
BYE 
647 


eae a ee ee OO 


RAL: 


RA3: 


RTHRES: 


RCVCK: 


MACY11 27(10 O7-MAR-77 16:24 PAGE 6-28 
RBASRV--REC ve BUFFER ADDRESS SERVICE 





BTC!BR!SPO> 
Z mis ; IF EQUAL BRANCH 
MICPC=MICPC+1 
« JUMP! ZCOND! < INS12-INIT&3000%4> ! < INS12-INIT&77772> > 


BRURTE I IMM :CALCULATE ADDRESS OF NEXT LINK 
Se ree <$>) 


MEM BR, ADD! SPO ‘ba 
MICPC=MICPC+1 
«MOVE ! WRMEM! BR! <ADD! SPO) > 


ALWAYS INSle ;EXIT 
MICPC=MICPC+1 
«JUMP! ALCOND! < INS12-INIT&3000%4> !< INSL2-INIT&777/2>> 


BRWRTE IMM,317 :MASK TO CLEAR START MODE AND CLR ACTIVE 
MICPC=MICPCH1 
(MOVE! WRTEBR! IMM! <317>> 


SPBR _BR, AANDB, SP10 
MICPC=MICPC+1 
<MOVE ! SPBRX! BR! AANDB! SP10> 


BRWRTE IMM,O CLEAR BR 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM! <Q > 


SP BR, SELB,SP13 ;SET NUMB MESSAGE TYPE IN SP13 
MICPC=MICPC+1 
«MOVE! SPX! BR! SELB! SP13> 


STATE _RCVB ;CHANGE RECEIVE STATE POINTER TO STATE B 
MICPC=MICPC+1 
UUAYS REXIT INIT877772>> 


MICPC=MiCPC+1 
<JUMP! ALCOND! <REXIT-INIT&3000#4> ! <REXIT-INIT8777/2»> 


;CLEAR BIT IN LINE STATUS WORD 


BRWRTE IMM, 2 
MICPC=M 1¢PC pch] 
<MOVE! WR FBR! INM! <2> 


ALWAYS ERRXX 
MICPC=MICPC+1 
< JUMP! ALCOND! < ERRXX-INIT&3000#4> ! <ERRXX-INIT8777/2>> 


"IF NOF LOW 
SPBR —«IBUS, RCVCON, SPO ;READ RCVR CONTROL CSR 
BRWRTE ®8R,ALD!SPO :SHIFT LEFT 

BR? 1 

ALWAYS TAL 


0 ee ee ee ee ee ee ee ee - 


wh A teal 


me i em i in rm i rn a re ee 5 ee 
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MACY11 27(1006) _O7-MAR-77 16:24 PAGE $-29 Pase: 
RBASRV--RECEIVE BUFFER ADDRESS SERVICE 
ACK: BRWRTE BR,AA'SPIC “READ LINE STATUS SHIFTING LEFT 
BR4Y S$ !IF START RECD--CLEAR START MODE 
ALWAYS IDLE 
S$: BRWRTE IMM, 327 -CLEAR START MODE 
SP BR, AANDB, SP10 :IN LINE STATUS 


ALWAYS IDLE ‘ 
ENDC 


FOS 


| DMCil DOCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE &-3C Pace: 


| SceNEW. MAC ODG-Dec-76 iC:14 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 
' g56 o12720 HOSEL: BRWRTE IMM, 100 “HO MASK TC 8 
C1) o903s¢ MICPC=MICPC4+1 
ch) 012720 oo0s¢2 (MOVE !WRTEBR! IMM! <100>> 
957 012722 SP BR, AORB,SP10 ;UPDATE PORT STATUS WORC 
(1) o003S& MICPC=MICPE+! 
i) 012722 063319 «MOVE! SPX! BR! AORB! SP10> 
ese 012724 ALWAYS INS11 
(1) 900357 MICPC=MISPC+1 Began’. 
dD 012724 15066 < JUMP! ALCOND! < INS11-INITS3000#4> !<INSLL-INIT8777/2): 
959 : 
860 912726 PE]:  BRWRTE IMM, 300 :MASK FOR INTERUPT AND VECTOR THROUGH xC4 
(1) 909360 MICPC=MICPC41 . 
a) 012726 o00700 (MOVE! WRTEBR! IMM! < 300) > 
} 
861 012730 SP IBUS, UBBR, SPO -READ BR CONTROL REG 
(1) 005361 . MICPC=MICPC+1 
h) 012730 123220 (MOVE! SPX! TBUS! UBBR! SPO? 
862 012732 OUT BR, <AORB! OBR> » INTERRUPT 
C1) 900362 MICPC=MICPC+1 
b) 0127322 O&1311 <MOVE ! WROUTX! BR! <AORB! OBR> > 
263 001 IF NDF $LOM 
864 ALWAYS IDLE 
BES 900 LEN 
965 001 "IF DF SLOW 
BE? 012734 ALWAYS “PINT2 ° 
(1) 000363 MICPC=MICPC+1 m 2 
1) 012734 100634 < JUMP! ALCOND! «PINTS -INITSOQ044) # PINT -INIT3777/2>> 
Bbe 000 -ENDC . 
BE3 . 
£70 012736 HALTED: MEMADR EMé 
(1) c00364 MICPC=MICPC+i 
(ad 
(1, 912796 902730 HOVE !MRMEM! CEM6-INIT8777/2>> 
(1) CMOVE! WRMEM! § <EMG-INITS777“2>> 
(1) 00 ENDC ‘ 
87; -FALL INTO ACLOW 
872 012740 ACLOW: BRWRTE IMM,2 :CAUSE AN AC LOW 
(1) 000265 MICPC=MICPC+1 
oe gi2740 oo0402 CMOVETURTEBR! IMM! <2> 
iJ 
873 O1274e OUT BR, «SELB! OBR> 
(1) O00 MICPC=MICPC+1 
) O1e742 061221 «MOVE! WROUTX! TBR! <SELB! OBR> > 
y] 
874 012744 cs: BRURTE IBUS, UBBR -WAIT FOR IT TO COMPLETE 
(1) 6003¢7 MICPC=MICPC+1 
ch) 012744 120620 <MOVE! WRTEBR! IBUS! <UBBR> > 
B75 C1274 BRL cs 


ei —— 


GOS 
12 DDQMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-31 PAGE: 
NEW.MAC © O&-DEC-76 10:14 RBHSRV--RECEIVE BUFFER ADDRESS SERVICE 
(1) 909370 MICPC=MICPC+1 ’ 
i) oi2746 192767 <JUMP! BRICON! <S$-INIT&3000#4> ! <S$-INITR777 2 > 
\ 
876 912750 JBLUAY rngtex SELB, PAGE3 
(1) 000371 | HgSPS 
Wh) o12750 «1s4ee0 ORB TAL SDND? MEMX! SEL B!PAGE2: 
877 o1e752 CKTIME: BRWRTE IBUS.UBBR |READ BR CONTROL REG 
(1) 900372 MICPC=MICPC+ 
(1) o12752 120620 (MOVE! WRTEBR! IBUS! <UBBR>> 
sa) 
878 012754 BRY HALTED 
(1) 900372 . MICPC=MICPC+1 
a) 912754 103365 JUMP! BRICON! (HAL TED-INITS$3000%4> ! <HALTED-INIT$777/2>> 
879 912756 ALWAYS EMI 
(1) 000374 MICPC=MICPC+! 
(1) 012756 114733 <JUMP!ALCONO! <EM1-INITSZO0Q084 ! <EMI-INIT&777/2> > 
960 i 
861 012760 tou:  BRWRTE IBUS,NPR 
(1) 000375 MICPC=MICPC+ 
(1) O1a7e0 120600 MOVE! WRTEBR! IBUS! <NPR> > 
862 012762 BR 0 IDLE 
+) ape 000276 MICPC=MICPC41 
ee 012762 10ec45 CTUMP!BROCON! < IDLE-INIT&3000%4> ! < IDLE-INIT8777 
Lal 
S62 012764 ALWAYS ECe2 
44 Dae 900377 MICPC=MICPC+1 k 
ee 012764 114762 MTOME? ALCON! <EC2=INITSZO00#4> # <EC2-INTTST77 “2>> 
864 
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012766 
012766 
012770 
012770 
012772 
012772 
012774 
012774 
012776 
012776 
013000 
013000 
013002 
013002 
012004 
013004 
01300 
01306 
013010 
013010 
013012 
013012 
013014 
013014 
013016 
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00400 
023200 


000401 
O&060i 


000402 
106012 


O0S403 
107412 


000404 
000691 


009405 . 


060360 


000406 
101745 


000407 
000405 


C0040 
060360 


000411 
105421 


000412 
000620 


000413 
060360 


000414 


27 ( 
RBASAY-cRE 


a a ee a TT 


6-32 PAGE: ¢ 


— 


HOS 
S'§e 


) O7-MOR-77 16:24 PAG 
YE BUFFER ADDRESS SERVICE 


; IOLE L 
;DETERMINES IF MESSAGE TYPE IS NUMBERED a OR BOOT 
“SETS UP APROPRIATE STATES FOR REST OF ME 

oF cea a RCVDAT, SPO ;READ RECEIVE CHARACTE RT 0 SPC 
«MOVE! SPX! IBUS! RCVDAT! SPO» 


BRWRTE BR,SELA!SP1 "FREAD PORT STATUS WORD 
MICPC=MICPC+1 

(MOVE! WRTEBR! BR! <SELA!SP1>> . 

pro. CSS sIF INIT MODE---ONLY BCOT OK 
MICPC=MICPC+1 

< JUMP! BROCON! <S$-INIT&3000*4> ! <S$-INIT8777/2>> 

BR? 5 ;IF BOOT MODE---ONLY BOOT OK 
MICPC=MICPC+1 

< JUMP! BR7CON! <S$-INIT83000#4> ! <S$-INIT8777/2>> 

BRWRTE IMM 201 :SOH TO BR 

MICPC=MICPC41 

«MOVE! WRTEBR! IMM! <201>> 
CMP ;COMPARE BR TO SPO 
CPCENIEPESI— 

<SUBTC! BR! SPOG> 

2 RAL :IF EQUAL-IS NUMBERED MESSAGE 
MICPC=MICPC+1 

STONE? ZCOND! <RAL- -INIT&3000%4> ! <RAL-INIT877772>> 

BRWRTE IMM.S ' :ENQ TO BR 

MICPC=MICPC+1 

(MOVE! WRTEBR! IMM! <5) > 
CMP s COMPARE ENQ TO SPO 

Se PCHNIGROTT 

<SUBTC! BR! SPO> 

2 Ae IF EQUAL-I1S UNNUMBERED MESSAGE 
MICPC=MICPC 

CJUME? ZCOND! <RA2- ~INIT83090#4> ! <RA2~INIT&777/2> > 

BRWRTE IMM, 220 :DLE TO BR 

MICPC=MICPC+1 

<MOVE! WRTEBR! IMM! <220>> 
CMP BR, SPO :COMPARE DLE TO SPO 
MICPC=MICPC+1 

<SUBTC! BR! SPO> 


;IF EQUAL IS BOOT 


Z BOOT 
MICPC=MICPC+1 
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MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-33 PAGE: 
RCVA--ROUTINE TO HANDLE FIRST COCMP CHARACTER 


< JUMP! ZCOND! <BOOT-INIT&3000#4> ! <B00T-INIT&77772>> 


OUTPUT IMM, <200!0RCVCO> :FLUSH THE INPUT SILO 
MICPC=mICPCH1 - 
«MOVE! WROUT! IMM! <200!0RCVCO> > 


BRWRTE IMM, wl ;MASK TO CLEAR--CLEAR ACTIV 
MICPC=MICPC+1 

(MOVE! WRTEBR! IMM! <357>> 

SP BR, AANDB, SP10 ;IN LINE STATUS WORD 

MICPC=MICPC+ 

«MOVE! SPX! BR! AANDS! SP10> 

ic the reeks! ;SET STATE TO RCVA AND RETURN TO IDLE 
«JUMP! ALCOND! «RM - -INIT&3000%4> ! <RM1-INIT38777 72> > 

STATE _RCVI ;CHANGE RECEIVE STATE TO I 


MICPC=MICPC+1 
Le aoe eeaee er ere 


LIF L 
ALWAYS REXIT. 
-END 


1 
«MOVE! SPX!BR!SELE!SP2> 
ALWAYS oT 
MICPC=MICPC+ tte 
< JUMP! ALEOND! « IDLE- ~INIT83090#4>!<IDLE-INIT8¢7772>> 


ENDS 
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DMSi: DDgMe PRITOCSL IMPLEMENTATION Macy 27(1006) O7-MAR-77 16:24 PAGE $-34 Pace: 6120 | 
\EcENEW MBS | oOB-Dec-?6 lo:14 CVB=-ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 
| 91g SBTTL RCVB- ROUTINE To HANDLE FIRST CHARACTER OF COUNT FIELD 

315 :ENTERED FROM IDLE LOO M 

eC :STORES COUNT FIELD BND SETS UP RCVC AS NEXT STATE 

$22 013036 neve: | o 

@23 013036 SP IBUS, RCVDAT, SP4 “READ CHARACTER TC SP4 

1) 009424 MICPC=MICPC+ 

(1), u13036 Ce3ed4 CHOVE! SPX? FBUS!RCVDAT! SP4> 

$24 913049 LOMA —_—sIMM,LRC LOAD ADDRESS OF START OF RECY CHAIN 

( onoyes NICPC=MICPCS I 

c O81 .1F TON IMM, IMM 

(1) 913040 o10524 ‘HOVE! LOMAR! IMM! <LRC8377> > 


I 
«MOVE! LDMAR! IMM! CLR) > 
.ENDC 


1) 
By 

ie) 

1} 

1) 

1) 

1} 

it} 
925 0132042 SP MEMX! LDMAR, SELB, SP14 COPY POINTER TO SP14 
(3) 900426 MICPC=MICPC+1 , 

(1) 12042 d&3234 «MOVE! SPX! MEMX! LDMAR! SELB! SP14> 

(]) 
935 :AND LOAD MAR WITH ADDRESS OF CURRENT BA 
$27 013044 BRWRTE MEN INCMAR! SELB “READ FLAGS BYTE 

(1) 090427 MICPC=MICP 

oe 012044 O54¢20 HEE ETA TEBR!MENX! CINCMAR! SELB) > ; 
928 013046 BRO RBI sRECVY BUFFER ASSIGNED---CONTINUE 
(1) 909430 MICPC=MICPC+1 

iD 013046 106042 < JUMP! BROCON! <RB1-INIT&8300C%4> ! <RB1-INIT&777/2>> 
$29 013050 BRWRTE BR SELA!SPI ;READ STATUS BYTE 

(1) 000431 MICPC=MICP 

1) 013050 36060: <MOVE! WRTEBR! TBR! <SELA!SPL>> 
930 012052 BR? RB3 :MAINT MODE 

1) 900432 MICPC=MICPC+1 

oe 012052 197449 TSOP! BRFCON! <RES- INIT&3000%4> ! <RB3-INIT87772>> 

\ 
93; 013054 LOMA so, Ts sERROR--LOAD TYPE FIELD ADDRESS IN MAR 
(1) 000433 . _MICPC=MICPC41 | 
(1) 1 -IF ION IMM, IMM 4 
(1) G13054 10153 HOVE LOMAR! IMM? <18377> J 

v] e 
(1) (MOVE! LDMAR! IMM! <T>> 
1) 000 ENDC 
; 

932 013056 MEMINC IMM,2 sLOAD NAK TYPE 

(1) 000434 MICPC=MICPCHIi 

1) 013056 d1e40e <MOVE !WRMEM! INCMAR! IMM! <2>» 
933 013060 MEM IMM, 310 -LOAD SUB-TYPE NO SUFFERS 

(1) 900425 MICPC=MICPC41 ' 

1) 013060 062710 <MOVE! WRMEM! IMM! <310>> 
934 013062 LOMA _IMM,NTLS 

(Li 000436 MICPC=MICPC+ 
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oMc1: DOCMP PROTOCOL IMPLEMENFRTION MACYL1 27(1006) O7-MAR-77 16:24 PAGE 6-35 PAGE: Orc! 
ECENEW.MAC 0»©- O&-DEC-76 10:14 RCVB--ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 
(1) 901 IF ION IMM, IMM 
ib 013062 010012 ihove! Come IMM! <NTLS&377> > 
(1) “MOVE! LOMAR! IMM! <NTLS> > 
ae co ENDC 
935 013064 ALWAYS RHE sBRANCH TO SEND NAK ROUTINE 
a) 000437 MICPC=MICPC 
b) 913064 104557 «JUMP! ALEOND! <RHS:- ~INIT&3000%#4> ! <RHS-INIT8777/2> > 
\ 
926 013066 R83: BRWRTE IMM,4 :MASK FOR NO BUFFER AVAILASLE 
1) o0044C MICPC=MICPC$1 
1) 013066 900404 «MOVE! WRTEBRE IMM! <4>> 
837 013070 Sp BR AORB, SPI “SET THE FLAG 
(1) or0441 MICPC=MICPC+1 
oe 013070 06330 (MOVE! SPX! BR! AORB! SP! 
\ 
938 913072 RB1: STATE CVC 
(1) occ44e MICPC=MICPC+1 
(1) 013072 Op0462 (MOVE !WRTEBR! IMM! <RCVC-INIT8777/2> > 
$39 012974 : RBO: SP BR. SELB, SP2 
(1) 900443 MICPC=MICPC+1 
i) 012074 063223 (MOVE! SPX! BR! SELB! SPa> 
840 012076 OUTPUT _<MEMX! INCMAR> , «SELB! OBAL> ;OUTPUT LOW ORDER BYTE OF ADDRESS 
(1) ooo444 MICPC=MICPC+1 
1) 013076 Oo56226 (MOVE! WROUT ! MEMX! INCMAR! <SELB! OBAl>> 
941 013100 - OUTPUT MEMX!INCMAR, <SELB!0BA2> ;OUTPUT HIGH BYTE OF ADDRESS 
ae 000445 MICPC=MICPC+1i 
a) 013100 OS62e7 <MOVE! WROUT ! MEMX! INCMAR! <SELB! OBA2>> 
J 
$42 013102 SP IBUS, UBBR, SPO ;READ THE BUS REQ REGISTER 
(1) ooo44E MICPC=MICPC+1 
ch) 912102 123220 <MOVE! SPX! TBUS! UBBR! SPO> 
942 013104 BRWRTE IMM, 101 MASK OFF ALL BUT NXM AND VEC4 BITS 
(1) 900447 MICPC=MICPC+1 
1) 013104 O00501 «MOVE! WRTEBR! IMM! <101>> 
J 
944 613106 SP BR, AANDB, SPO AND SAVE IN SPO 
(1) o004s0 MICPC=MICPC+1 
dD) 012106 o83260 <MOVE! SPX! BR! AANDB! SPO> 
S45 013110 SP IMM, 300, SPS “MASK TO ISOLATE EX. MEM BITS 
1) 000451 MICPC=MICP 
(1) 012110 oo230¢ - <MOVE! SPX! IMM! 300! SPS> 
946 sNOTE THIS REALLY WRITES A 30S BUT THE 
947 :5 GETS SHIFTED OUT 
948 012112 BRWRTE MEMX, AANDB!SPS ‘MASK ALL BUT EX. MEM BITS 
(1) oo04s2 MICPC=MICPC+ 
iL) 013112 O406Es <MOVE! WRTEBR! MEMX! <AANDB! SPS> > 
y} 
948 013114 BRSHFT ;SHIFT THEM INTO THE CORRECT POSITION 
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013114 
013116 
013116 
013120 
013120 
013122 
013122 
013124 
013124 
013126 
013126 
013130 


013:38 


oco MPLEMENTA TION MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-36 PAGE: O1Ce 
“BES. ie e:i4 RCVE--ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 
o004s3 MICPC=MICPC 
991620 UHOVE! SHE TER! MRTEBR! SELB? 
BRSHFT 
coo4s4 MICPC=MICPC+1 
001820 (MOVE! SHF TBR' WRTEBR! SELB> 
BRSHFT 
p004ss MICPC=MICPC+1 
001620 HOVE SHE TBR! MRTEBR! SELB) 
BRSHFT 
o0045é MICPC=MICPC+1 
601629 MOVE? SHETBR! MRTEBR! SELS> 
OUT BR, AORB! OBR ;WRITE EX MEM BITS OUT 
900457 MICPC=MICPC+1 
061211 (MOVE ! WROUTX! BR! <AORB! OBR) > 
oco46c AEOPCoM ropes) 
190445 < JUMP! ALCOND! < IDLE-INIT&2000%4> ! < IDLE-INIT8777/2) > 
R82: ALWAYS I2 
000461 MICPC=MICPC+1 oe 
1oo4e4 < JUMP! ALCOND! <12-INIT&3000"4> ! <I2-INIT3777/2>> 
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DMCL2 DDCMP PRO — IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-37 PAGE: 9103 
DOCNEW.MAC  ©O6-DEC-76 10:1 RCVC--ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FINAL 

957 .SBTTL RCVC--ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT OND FING 

958 ;ENTERED FROM IDLE LOOP 

agg :INTERPRETS SELECT AND FINAL 

360 :CHECKS FOR COUNT TOO LARGE 

%2 013132 reve: ALWAYS SELQSY :"CALL” SELECT/GSYNC SUBROUTINE 

(1) o00462 MICPC=MICPC+1 

(1) 013132 114470 MTUMP!ALCONO! <SELQSY- INITS3000%4> ! <SELGSY-INIT8&777/2) > 

963 013134 LDMA BR, <SELA!SP14> ;LOAD ADDRESS OF CURRENT COUNT 

(1) 000463 NICPC=MICP cecel 

(1) 001 IF IDN B 

a) inove! LORAR! HM! SELA?SP1¥8377°> 

(1) 012134 970214 (MOVE! LOMAR! BR! <SELA!SP14>> 

(1) ooo .ENDC 

964 013136 BRWRTE BR!INCMAR, SELA!SP1 :READ STATUS BYTE 

(1) pO0464 MICPC=MICPC+1 

et 013136 9074691 «MOVE! WRTEBR! BR! INCMAR! <SELA!SP1>> 

$65 012140 : BRWRTE SHFTBR! INCMAR, SELB ;SHIFT IT RIGHT 

(1) p0046S © MICPC=MICPC+1 

ch) 013140 015620 MAO VETWRTERR! SHF TBR! INCMAR! <SELB> > 

966 013142 BR1 RCS ;NO BUFFER ASSIGNED IN MAINT MODE 

(1) OOO4bE MICPC=MICPC+1 

(1) 013142 108475 < JUMP! BRICON! <RCS-INIT&3000%4> ! <RCS-INIT877772>> 

367 013144 BRWRTE IMM! INCMAR,77 :MASK FOR COUNT BITS 

(1) 000467 MICPC=MICPC+1 

(1) 013144 014477 <MOVE ! WRTEBR! IMM! INCMAR! <77> > 

968 013146 sp MEMX!INCMAR,SELB,SPO = ;COPY HIGH BYTE OF COUNT TC SPO 

(1) 000470 MICPC=MICPC+1 

(1) 013146 057220 HOVE? SPX! MEMX! INCMAR! SELB! SPO> 

99 013150 BRWRTE BR, AANDB!SPG ;MASK TO BR 

(1) 000471 MICPC=MICPC+1 

(hi 013150 O60660 HOVE! WRTEBR! BR! <AANDB! SPO) > 

970 013152 CMP ;COMPARE HIGH ORDER BITS OF COUNT 

(1) 000472 NICPCEMICECH 

(1) 013152 Of60265 <SUBTC! BR! SPS> 

971 013154 : RCFATL ;IF CARRY--TOO BIG ERROR 

(13 000473 MICPC=M ICPC+1 

(1) 013154 115116 < JUMP! CCOND! <RCFATL-INIT&3000#4> ! <RCFATL-INIT8777/2>> 

972 D131S6 2 RCLOW ;IF EQUAL COMPARE LOW ORDER BITS OF COUNT 

(1) 000474 MICPC=MICPC+1 

(1) 013156 115513 < JUMP! ZCOND! <RCLOW-INIT8&3000#4> ! <RCLOW-INIT8777/2>> 

973 013160 RCS: STATE RCVD :SET NEXT STATE TO OD 

( ) 000475 MICPC=MICPC+1 

J 


— 


013160 000477 (MOVE !WRTEBR! IMM! <RCVD-INIT8777/2> > 
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MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-38 
RCVC--ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FINAL 


ALWAYS REXIT 
MICPC=MICPC+1 
JUMP! ALCOND! <REXIT- ~INIT83000#4> ! <REXIT-INITS77772) > 


ne cee ee Eo 


ee ee ene eee 
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DMCL1 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 07-MAR-77 16:24 PACE 6-39 PAGE: 10s 
DOCNEW.MAC =: &-DEC-76 10:14 RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 

976 .SBTTL RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 

975 013164 RCvD:  §P BR, DECA, SP4 ;DECREMENTLOW BYTE OF COUNT 

(1) 000477 MICPC=MICPC+1 

(1) 013164 063164 «MOVE! SPX! BR! DECA!SP4> 

979 013166 C RD3 :NO OVERFLOW 

(1) ocosoo MICPC=MICPC+1 

(1) 013166 105102 < JUMP! CCOND! <RD3-INIT&3000%4> ! <RD3-INIT38777/2>> 

980 013170 sp BR, DECA, SPS ; OVERFLOW - DECREMENT HIGH BYTE 

(1) 000501 MICPC=MICPC+1 

() 013170 063165 <MOVE! SPX! BR! GECA! SPS» 

981 013172 RD3: STATE: RCVE 

(1) o00s02 MICPG=MICPC+1 

(1) 013172 900523 (MOVE! WRTEBR! IMM! <RCVE-INIT8777/2> > 

982 013174 RD2: SP BR,SELB,SP3 ;SAVE THE STATE 

(1) oo9s03 MICPC=MICPC+1 , 

1) 013174 063222 «MOVE! SPX! BR! SELB! SP3> 

983 013176 SPBR _IBUS, RCVDAT, SPO s INPUT THE CHARACTER 

(1) oo0s04 MICPC=MICPC+1 

1) 013176 023600 <MOVE ! SPBRX! IBUS! RCVDAT! SPO> | 

984 013200 BRWRTE ®8R,SUB!SP17 ;COMPARE NEW R TO LAST R 

(1) goosos MICPC=MICPC+1 

(1) 013200 960757 (MOVE ! WRTEBR! BR! <SUB!SP17>> 

965 013202 4 BR7 10$ SIF NEW IS GREATER---PROCESS 

(1) oo00S96 MICPC=MICPC+1 

(1) 013202 107510 < JUMP! BR7CON! < 10$-INIT&3000%4> ! < 10$-INIT&777/2>> 

986 013204 ALWAYS IDLE 

1) 009507 MICPC=MICPC+1 

(1) 013204 io0445 < JUMP! ALCOND! < IDLE-INIT&3000*4> ! < IDLE-INIT&777/2>> 

987 013206 19S: BRWRTE BR,SELA!SP1 ;READ STATUS BYTE 

(1) 000510 MICPC=MICPC+1 

1) 013206 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> 

988 013210 BR? IDLE ;MAINT. MODE - GET 3uT 

1) 000511 MICPC=MICPC+1 

oe 013210 102446 < JUMP! BR7CON! < IOLE-INIT&3000#4> ! < IDLE-INIT8777/2>> 

{]) 

989 013212 BRWRTE BR,SELA!SPIO 

C1) o00s12 MICPC=MICPC+1 

iD) 013212 S65:2 (MOVE! MRTEBR! BR! <SELA!SP10>> 

930 513214 BRSHFT 

(1) 900512 MICPC=MICPC+1 

1) 013214 001620 <MOVE ! SHF TBR! WRTEBR! SELB> 

99. 013216 BR4 IDLE 

CL, 000514 MICPC=MICPC+1 

(1) 013216 103046 < JUMP! BRYCON! < IDLE-INIT&3000%4> ! < IDLE-INIT8777/2>> 
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1 DDCMP PROTOCOL JNPLEMENTAT ION MACYL1 27(1006) O7-MAR-77 16:24 PAGE 6-40 PAGE: 
MAC 080 O6-DEC-76 10: RCVD--ROUTINE TO HANDLE RESPONSE FIELD FCR NUMBERED MESSAGES 
013220 LOMA IMM, ISP17 ;ADDRESS LAST ACKED IMAGE 
000515 RICPC=MICECH 
013220 o101S5 Hove! LonAR! TH! 1SP178377) 
<MOVE!LDMAR! IMM! <ISP17>> 
000 .ENDC 
013222 MEM BR, SELA!SPO :COPY THE CHAR 
000516 MICPC=MICPC+1 
013222 062600 . (MOVE! WRMEM! BR! <SELA!SPO> > 
013224 RDS: BRWRTE IMM, REPST!LDMAR :SET UP COUNT FOR TIMER 
000517 MICPC=MICPC41 
013224 610492 <MOVE! WRTEBR! IMM! <REPST!LDMAR> > 
; ¥#44DEPENDENT ON REPST = 2 
013226 MEM IMM, 1 RESET REP THRESHOLD 
gocs20 MICPC=MICPC41 
013226 o02401 «MOVE! WRMEM! IMM! <1>> 
013220 sp BR, SELB, SP1S ;RESET THE COUNT 
oo00S21 MICPC=MICPC+1 
013230 063235 «MOVE! SPX! BR! SELB! SPiS> 
013232 ALWAYS IDLE 
_. 00522 MICPC=MICPC+1 
013232 10044s < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8777/2>> 


f 
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1990 .SBTTL RCVE--ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 
1002 013234 Rove:  BRWRTE BR.SELA'SP! :READ THE STATUS BYTE 
(1) o00S22 MICPC=MICPC+1 
at 013234 060601 CHOVE TWATEBR! BR! <SELA!SP1>> 
1003 013236 BR7 RCV 
(1) o0C524 MICPC=MICPC+1 , 
GQ) 013236 107713 < JUMP! BR7CON! <RCVQ-INIT&3000%4> ! <RCVQ-INIT8777/2> > 
1004 013240 BRWRTE IBUS,RCVDAT s INPUT THE CHARACTER 
(1) o00s25 MICPC=MICPC+ 
(1) 013240 O20600 (MOVE! WRTEBR! IBUS! <RCVDAT> > 
1005 013242 CMP —s_ BR, SPL 
C1) o0052 STCPCEMTEPO SI 
1) 013242 060371 <SUBTC!BR!SP11> 
1006 o13244 2 S$ 
(1) 999527 MICPC=MICPC+1 
dD) 013244 105532 SUMP? SCOND! <SS-INIT&3000%4> ! <5$- -INIT&?777/2>> 
1907 013246 sp BR DECA, SP13 :FORCE MSG TYPE TO -1 
(1) 000530 MICPC=MICPC+ 
ch) 013246 063173 <MOVE! SPX! BR! DECA! SP13> 
1098 013250 ALWAYS RE2 
(i) 909531 MICPC=MICPC+1 
ih) 013250 104533 < JUMP! ALCOND! <RE2-INIT&3000%4> !\RE2-INIT&7772>> 
y] 
1009 o13e52 S$: SP BR, INCA, SP11 ;UPDATE R FIELD 
(1) 100532 MICPC=MICPC+1 
(1) 013252 06307: <MOVE! SPX! BR! INCA! SP11> 
(22 
idio 013254 RE2: STATE RCVF sNEXT RECEIVE STATE IS F 
(1) 909532 MICPC=MICPC+1 
(1) 913254 990535 HOVE! URTEBR! IMM! <RCVF-INIT877772) > 
i011 01325¢ ALWAYS REXIT 
(1) 900534 MICPC=MICPC+1 
(1; O1225— 104422 < JUMP! ALCOND! <REXIT-INITS3000#4> ! <REXIT-INIT&777 “2 
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MACY11 27(1006) O7-MAR-77 16:24 PAGE &-42 
RCVF--ROUTINE TO IGNORE ADDRESS 


ROVE: 


RCVF 1: 


ROVG: 


.SBTTL RCVF--ROUTINE TO IGNORE ADDRESS 

STAT — RCV 7 
MICPC=MICPC+1 

<MOVE !WRTEBR! IMM! <RCVG-INIT8777/2 

NOP IBUS, RCVDAT, 0 
MICPC=MICPC+! 

<TBUS!RCVDAT!O> 


ALWAYS REXIT 
MICPC=MICPC+1 
JUMP! ALCOND! <REXIT- INIT&200084> ! <REXIT-INIT877772) > 


= INPUT CHARACTER - AND OISCSRD 


‘ SBTTL RCVG--ROUTINE TC IGNORE CRC1 


STATE RCVH :NEXT STATE IS RCVH 
MICPC=MICPC+1 
<HOVE LRTEBRE IMM! RCVH-INIT8777/2> > 
ALWAYS RCYF 
MICPC=M 1epC+1 


«JUMP! ALCOND! «RCVF1- ~INIT83000#4> ! «ROVE 1L-INIT&777/2> > 


pMcii DOCM PROTOCOL JMPLEMENTATION MaCYil 3710 &) O7-MAR-77 16:24 PAGE 6-43 PAGE: 0109 
(EStNEw Mac 0606 De-Dec-%e TE 14 RCVH=-ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 
1263 .SBTTL RCVH--ROUTINE TO HANDLE SRC2 AND TO DISPATCH NUMBERED SND UNNUMEERED TYE 
pes: A 
1805 013272 ROVH: 
1606 813272 SP 1BUS RCVDAT, SPO -GET CHAR IN SPO 
i) ecos42 MICPC=MICP 
) 013272 23205 (MOVE! SPX! TBUS! RCVDAT! SPO» 
182? 013274 BRURTE IBUS, RCVCON sREAD RECYR CONTROL REGISTER 
(1) 900543 MICPC=MICPC+ L . 
Hh) 913274 deDb4o <MOVE!WRTEBR! IBUS! «RCVCON> > 
1028 013276 BRO TDON! sIF BCC MATCH SET CRC IS GOOL 
(1) 900544 MICPC=MICPC41 
ae 013276 116157 «JUMP! BROCON! < TDONI-INIT83000#4> ! < TDONI-INIT&8777/2> > 
1029 013300 BRWRTE BR,SELA!SP1 “READ STATUS BYTE 
(1) 000545 MICPC=MICPC+1 
(1) 013300 960601 (MOVE! WRTEBR! BR! <SELA!SPi>> 
(a) 
1030 913302 BR? RHX :MAINT MODE 
1) ooo0s4e MICPC=MICPC+1 
:1) 013302 107751 < JUMP! BR7CON! <RHX-INIT&3000%4> ! <RHX-INIT8777/2>> 
1931 012304 BRWRTE OP, <SELA!SP1O> READ PORT STATUS WORD TO BR 
C1) oo0os47 MICPC=MICPC+1 
ae 013304 960610 (MOVE! WRTEBR! OP! <SELA!SP1O>> 
1032 913306 BRSHFT 
C1) ooess9 MICPC=MICPC+1 
ch) 013306 901620 «MOVE! SHF TBR! TWRTEBR! SELE> 
1033 012310 BRY SNAK 1 :IF START MODE--PROCEED TO RESEND START 
(D 900551 MICPC=MICPC+1 
(1) O13310 117315 STOMP? BRICON! <SNAK1- INIT83000%4> ! <SNAKI-INIT&777/2> > 
1034 913212 LOMA IMM, T sELSE BCC ERROR--LOAD ADDRESS OF TYPE FI 
1) noosse NICPCSMICPCH 
41 oe. I IF IDN IMM, IMM 
(13 013312 910153 HOVE SLDMAR! IMM? «183779 > 
(13 <MOVE!LDMAR! IMM! <T)> 
1) 900 -ENDG 
1035 012314 MEMINC _IMM,2 WRITE NAK TYPE 
1) ocoss3 MICPC=MICPC41 
a 913314 O1e4n2 <MOVE! WRMEM! INCMAR! IMM! <2>> 
‘ J 
103 013316 MEMINC IMM, 301 sWRITE HEADER 8CC ERROR SUBTYPE 
(1) pooss4 MICPC=MICPC41 
cb) O133i&6 01672 (MOVE! WRMEM! INCMAR! IMM! <301>> 
1037 012320 MEM _ BR. SELA!SP17 sRESTORE LAST ACKED IMAGE 
(1) ___ Q0osss MICPC=MICPC+1 
oe 913320 62617 (MOVE !WRMEM! BR! <SELA!SP17>> 
1038 012222 LOMA  IMM,NHDS SADDRESS CUM ERROR COUNTER 
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pred 27(1006) O7-MAR-77 16:24 PAGE 6-44 PAGE: 911d 


RHS: 


RH3: 


CVH=-ROUTINE TO HANDLE bace RAND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


NICPCSMICEC#L 
N IMM, IMM 
(ROVE ILOMAR! IMM! « NHOS82" 77>) 
CHOVE!LDMAR! IMM! NHDS> > 
.ENDC 
MEMX, SELB, SPO ‘WRITE IT TO SPO 


SP 
MICPC=MICPC+ 
«MOVE! SPX! MEMX! SELB! SPO> 


MEM BR, INCA! SPO s INCREMENT IT 
MICPC=MICPC41 

(MOVE! WRMEM! BR! <INCA!SPO> > 

LOMA —_—sIMM, NAKST “ADDRESS NAKS TMTED DYNAMIC 
NECPC=MICEC+1 


IF IDN IMM, IMM 
“MOVE! LOMAR! IMM! <NAKST8377> > 


LIFF 
“MOVE! LDMAR! IMM! <NAKST> » 
. ENDC 


BRWRTE MEMX,SELB ;WRITE IT TO BR 
MICPC=MICPC+ 
(MOVE! WRTEBR! MEMX! <SELB> > 


BSHFTB :SHIFT IT RIGHT 
MICPC=MICPC 
SHOVE? SHETBR! SELB! BR» 
MEM BR, SELB :UPDATE IT 
MICPC=MICPC+1 
(MOVE !WRMEM! BR! <SELB> > 
BRO NTHRES sBRANCH IF THRESHOLD EXCEEDED 


MICPC=MICPC sie 
C TUNE! BROCON! <NTHRES-INITS3000#4> # <NTHRES-INIT8777/2> 


ALWAYS SNAK 
MICPC=MICPC+1 
< JUMP! ALCOND! <SNAK~-INITS$3000#4> ! «SNAK-INIT377772>> 


BRWRTE DP, <DECA!SP13> ;LOAD TYPE RECEIVED--CECREMENTING 
MICPC=MICPC+1 
«MOVE! WRTEBR! DP! <DECA!SP13>> 


2 RHI ;IF ALUOUT IS ALL ONES IS NUMBERED MSG 
MICPC=MICPC+1 : 

< JUMP! ZCOND! <RH1-INIT83000#4> ! <RH1-INIT8777/2> > 

STATE RCVA, 

MICPC=MICPC+ ; 

(MOVE! WRTEBR! IMM! <RCVA-INITS77 


MICPC=MICPC+ 
«MOVE! SPX! BR! SELB! SP3> 


DMOi1 DOCMP PROTOCS. IMPLEMENTATION NECY11 271006) O7-MAR-77 16:24. PAGE 6-45 nae PAGE: O11! 
\BDENEW MAC 806 O6-Dec=%6 los14 RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED GND UNNUMBERED TyPES 
' 1950 913354 BRWRTE DP <SELA!SP10> LOAD LINE STGTUS WORD IN 8S 

tD 909573 MICPC=MICPE+ 
(1) o1gas4 560835 (MOVE !WRTEBR! DP! <SELA'SF1O>» 
1051 01335 | BRY FLUSH! 
(1) occs74 MICPC=MICPC+! 
$) 013366 117040 <JUMP* BRSCON! <FLUSHI-INIT$2000#4> ! FLUSHI-INITS777/2> ’ 
\i) 
1052 013360 CGl:  BRSHFT SHIFT RIGHT 
(1) 900575 MICPC=MICPC+1 
4) 013360 Obie2 ‘ MOVE! SHF TBR! WRTEBR! SELE> 
1952 013362 BR4 10 
(1) pecs? MICPC=MICPC+1 
1) 013362 107204 CTUME! BRICON! < 1OS-INITS$3000#4> # < 10$-INITS777/2>> 
1054 013264 LOMA IMM, TYPTAB LADDRESS TYPE TABLE 
C1) 000577 MICPC=MICP poh 
(1) 501 IF IDN IMM, IMM 
(1) 013364 CiCIE3 (MOVE! LDMAR! IMM! <TYPTABS377> > 
1) (MOVE! LDMAR! IMM! <TYPTAB> > 
(1) 900 -ENOC 
1085 013366 CMP (MEMX! INCMAR> , SP13 
(1) 900600 MICPC=MICPC+1 
» (1) 013366 084372 —- SUBTC!MEMX! INCMAR! SP13> 
“4056 013370 z REP 
(1) 900601 MICPC=MICPC+1 
(1) 013370 115804 TOME? SCOND! (REP=INIT&3000%4> ! <REP-INITS777/2>> 
iid 
ips? 013372 CMP <MEMX! INCHAR? , SP12 
¢1) ocogo2 MICPC=MICPC4 
(f) 913372 084373 (ace yc 1 MEM! INCMAR! SP13> 
1088 013374 Z NaK 
(1) ooos03 MICPC=MICP 
(h) 013374 LISHH3 GMB? TGOND! ¢NQK-INIT83000%4> ! <NAK-INITS?777 2) 
(1) 
1059 012276 10$:  LDMA IMM, TYPSTT SET POINTER TO START TYPE 
(1) p00604 nicrc=ntecti 
(1) O01 F IDN IMM, T° 
(d) 012376 o1cles MOVE! 'LDMAR!T. TYPSTT8377> >» 
ae | 
13 (MOVE !LDMAR! IMM! <TYPSTT> > 
1) 000 ENOC. 
1060 013400 CMP <MEMX! INCMAR> , SP12 
(1 oo060s MICPC=MICPC+1 
(1) 013490 084372 <SUBTC! MEMX! INCMAR! SP13) 
1061 013402 START 
(1) ODEO AICPCeMIeP Ctl 
(1) 013402 118413 ; JUMP! ZCOND! START-INITS3O0P#4> ! < START-INIT8777/2> 5 
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MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-46 
RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


109 


CMP «MEMX! INCMAR> ,SP13 
MICPC=MICPC+1 
«SUBTC!MEMX! INCMAR! SPi3> 


Z aract 

MICPC=MICPC+1 

«JUMP! ZCOND! « STACK-INIT&3000%4> ! < 
«MEMX! INCMAR> , SP13 


CMP 
MICPC=MICPC+1 
<SUBTC! MEMX! INCMAR!SP13> 


Z ACK 
MICPC=MICPC+1 


sSTACK TYPE 


STACK-INITS$?77772) > 


-ACK TYPE 


CTUMP? ZCOND! < ACK INITS3000%4> ! <ACK-INIT8&77772> > 
thie ;OTHERWISE IGNORE--MUST BE OBS MSG 
SUMP! ALCOND! « IDLE~ ~INIT&83000#4> ! < IDLE-INIT8777/2> > 


ALWAYS IDLE 
MICPC= 


+ 4 


DF LOW 
VCK: SPBR 1BUS RCVCON, SPO 


MICPC=M 
(MOVE! SPBRX! [BUS! RCVCON! SPO> 


BRWRTE BR, ADD!SPO 


MICPC=MICPU+1 
(MOVE! WRTEBR! BR! < ADD! SPO> > 


BR? 
MICPC=MI 


;READ RCVR CONTROL CSR 


;SHIFT LEFT 


1a 
CPC+1 
«JUMP! BRFCON! «I~ ~INIT83000#4> $< Ii-INIT877772>> 


ALWAYS TAl 
MICPC=MICPC+1 


«JUMP! ALCOND! < TAL-INITS&3000%4> !<TAI-INIT87772>> 
;READ LINE STATUS-SHIFTING LEFT 


BRWRTE BR,AA!SPIO 
MICPC=MICPC+1 
«MOVE! WRTEBR! BR! <AA'SPIO>> 


BRY 5 
MICPC=MICPC+1 


;IF START RECO 


$ 
< JUMP! BRYCON! <S$-INIT&3000#4> !<S$-INITS777/2> > 


ALWAYS IDLE 
MICPC=MICPC+1 


JUMP? ALCOND! ¢ IDLE- INITS3000#4> ! << IDLE-INIT877772>> 


BRWRTE IMM al 
MICPC=MICPC+ 
COVE !WRTEBR! IMM! (327)> 


sp BR, AANDB, SP10 
MICPC=MICPC+! 


_— —- 





—~ 
‘ 


:CLEAR START MODE 


;IN LINE STATUS 


- CLEAR START MODE 
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tii2 ODMP PROTICS, IMPLEMENTATION MACYI1.27(1006)_ O7-MAR-77 16:24. PAGE 6-47 PAGE: C112 
SoiNEw. Mac | Se-DEC-7— T5218 CVH=-ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED ANC UNNUMBERED TYPES 
f) SLE43E 063270 «MOVE! SPX!BR! AANDE!SP1G> 
1078 o12440 p ALWAYS RDS 
Oh) gongs MICPC=MICPC+1 
‘1) 013440 104517 <TUMP!ALCOND! <ROS-INITS2O00#4> #<ROS-INITS777/2)) 


,ae 
-=—= -~-- 


ibe 3 wow . ENDS 
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Gig ODCMP PROTOCOL TMPLEMENTATION MACY 11 (440062 07-MAR-77 . oh PR GE B= 48 PeGE: 0114 
W. MRC Se-SeEC-7& TE: 14 RCVH=-ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


s RHSRRHARREAHRERERTIME CRITICAL CODE-- CHANGE WITH GREAT CARE *sexeaeeectesscassses 


“SBTTL RCVKOI--ROUTINE TO HANOLE FIRST BYTE ODD RECEIVE 
013442 ROVKOL: SPBR _—‘sIBUS,NPR,SPO “READ NPR REGISTER 
g0062 MICPC=MICPC+ 
012442 123600 «MOVE! SPBRX! IBUS! NPR! SPO: 
013444 BRO IDLE 
000627 MICPC=MICPC41 
013444 102045 < JUMP! BROCON! < IDLE-INIT83000%4 !< IDLE-INIT8777/2>> 
O1B44e BRWRTE IMM, 200 sMASK FOR CO(BYTE TRANS=ER) 
009630 MICPC=MICPC41 
013446 900600 «MOVE! WRTEBR! IMM! <200>> 
013450 OUT BR, <AORB! ONPR> :TURN ON CO 
00062: MICPC=MICPC41 
013450 O61210 <MOVE ! WROUTX! BR! <AORB! ONPR> > 
013452 STATE RKE1 
oece22 MICPC=MICPC+1 
013452 O00670 (MOVE !WRTEBR! IMM! <RKEL-INIT8777/e2> > 
013454 ALWAYS RCVKOe 
000633 MICPC=MICPC+1 . 
013454 104637 < JUMP! ALCOND! <RCVKO2-INIT&3000#4> ! <RCVKO2-INIT3777/2> > 
.SBTTL RCVKO--PROCESS ODD CHARACTER ” 
201 “IF NOF LOW 
RG, EE a a star 
er Spur Pode RevaaT! OUTDAe ‘ut GHAR TO BUFFER 
RK2: SPBR —_—«IBUS, NPR, SPO :NPR BUSY 
ond BRO RK1 -IF SO GET READY TO GO 
001 -IF OF LOW 
0134S RCVKO: SPBR _IBUS,NPR,SPO :IS AN NPR GOING 
909634 MICPC=MICPC+1 
O134S5& 123600 «MOVE! SPBRX! ISUS! NPR! SPO> 
013460 BRO IDLE ,IF SO --- GET OUT 
000635 MICPC=MICPC+1 
013460 162045 < JUMP! BROCON! < IDLE-INIT83000%4> ! < IDLE-INIT87772>> 
013462 STATE RCVKE 
000626 MICPC=MICPC+1 
013462 OOD0E4S <MOVE !WRTEBR! IMM! <RCVKE-INIT8777/2>> 
013464 RCVKO2: SP BR , :SET STATE 
000637 MICPC=MICPC+1 
O13464 063223 (MOVE! SPX! BR! SELB! SP3> 
D1346E OUTPUT IBUS,RCVDAT!OUTDA2 :OUTPUT A CHAR 
000640 MICPC=MICPC+ 
012466 O22203 <MOVE !WROUT ! IBUS! <RCVDAT! OUTDA2> > 
013470 RK2: 


000 . ENDC 
013470 RKB: BRWRTE IMM,21 ;SET OUT NPR (C1) AND NPR REG 


———— 
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DMCLL DDCMP PROTOCOL IMPL EMENTAT ION MACYL1 27(1006) O7-MAR-77 16:24 PAGE &-49 PAGE: 115 
‘CCCNEW.MAC =| O6-DEC-76 10:1 RCVKO--PROCESS ODD CHARACTER 
sob 99964: MICPC=MICPC+1 
1) 013470 90042! (MOVE! WRTEBR! IMM! <21>> 
mF T | 
1106 013472 sp 1BUS NPR, SPO sREAD NPR REGISTER 
1) oo0s4e2 MICPC=MICPC+ 
1) 013472 123200 «MOVE! SPX! IBUS! NPR!SPO> 
1107 913474 RK7?: OUT BR, <AORB! ONPR> sWRITE NPR REGISTER 
(1) 090642 MICPC=MICPC+1 
h) 013474 061310 «MOVE! WROUTX! BR! «AORB! ONPR> > 
\ 
1108 013476 ALWAYS IDLE 
(1) oooe44 MICPC=MICPC+1 
4) O1347& 100445 < JUMP! ALCOND! < IDLE- -INIT$3000#4> !<IDLE-INIT8777/2>> 
,i3 ‘ 
1108 90: IF {OF Low 
1110 RK1:  LDMA IMM,OSTATE ;LOAD POINTER TO OLD STATE STACK 
lll MEM DP, <SELA!SP3> :STORE CURRENT NEXT STATE POINTER 
iile STATE RHBLOC SET STATE FOR NPR BLOCKED 
1113 ALWAYS REXIT 
1114 RHBLOC: LDMA IMM, OSTATE ; ADDRESS OLD STATE POITER 
1115 SP MEMK, SELB, SP2 :RESTORE THE STATE 
+78 a ALUAYS RK TRY THE NPR Nol 
eee ~~ ee . L 





a ee ee eee eee 


















DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-SO 
SOCNEW.MAC »©-: OB-DEC-76 10:1 RCVKE--HANDLE EVEN BYTES 

1119 .SBTTL RCVKE--HANDLE EVEN BYTES 

1120 013500 RCVKE: - BRURTE IBUS, NPR :READ NPR CONTROL REGISTER 
(1) o0064s MICPC=MICPC+ 
1) 013500 1lepse0 (MOVE! WRTEBR! IBUS! <NPR> > 

1121 001 IF NOF LOW 

1122 BRY RKY :IF RECVY NPR--BRANCH 

1123 000 -ENDC 

1124 01 af OF LOW 

1125 013502 
(1) o0084s ST PCeM ICPC+1 
Ch) 013502 102045 «JUMP! BROCON! < IDLE-INIT83000%4> ! < IDLE- ~INIT8777/2) eo 

1126 ooo -ENDC 

i127 013504 —- Sp IBUS, IOBA1, SPO ;READ LOW BYTE OF BA TO SF 
(1) 000647 MICPC=MICPC+1 
(1) 013504 023140 <MOVE! SPX! IBUS! IOBAL! SPO> 

1128 -013506 OUTPUT DP, <INCA!OBAL> ;WRITE INCREMENTED BA 
(1) ooc6s0 MICPC=MICPC+ 
ch) 013506 O82066 <MOVE ! WROUT! OP! < INCA! OBAL> > 

1129 013510 RKSO: SP BR, DECA, SP4 :DECREMENT CHARACTER COUNT 
(1) 000651 MICPC=MICPC+1 
1) 013510 O63164 MOVE! SPX! BR! DECA! SP4> 
\ 

1130 013512 C 10% :NO OVERFLOW m 
(1) 900652 MICPC=MICPC+1 } 
(1) O13Sie 105265 < JUMP! CCOND! < 10$-INIT&3000%4> ! < 10$-INIT&77772> > 

, 

1131 013514 SP ‘ BR,DECA,SPS ;OVERFLOW - DECREMENT HIGH BYTE 
(1) 000653 MICPC=MICPC+1 
(1) 013514 O63165~ = -- <MOVE ! SPX! BR! DECA! SPS> 
i 

1132 013516 2 RL3 :BYTE COUNT ZERO 
(1) 009654 MICPC=MICPC+1 
(1) Q13516 105721 JUNE! COND! <RL3- ~INIT&3000#4> ! <RL3-INIT&77772>> 

1133 013520 10$: SP IBUS 10BA1 SPO READ INCREMENTED BA 
(1) oo006ss MICPC=MICPC+t 
h) 013520 023140 <MOVE ! SPX! IBUS! IOBA1!SPO> 

1134 013522 OUTPUT DP, <INCA!OBAIL> ;WRITE INCREMENTED 8A 
(3) OODESE MICPC=MICPC+1 
1) 013522 Ob2066 (MOVE ! WROUT! DP! < INCA! OBA1>> 

} 

1135 013524 C ICBA22 IF CARRY INC BA HIGH 
(1) 000657 MICPC=MICPC+I1 
(1) 013524 115030 OMe? CCOND! < ICBA22-INIT&3000%4> ! < ICBAZ2- -INIT&77772>> 

3 

i136 013526 RK3: SP IBUS, RCVDAT, SPO :READ CHAR AND SAVE IN SPO 
(1) D00660 MICPC=MICPC+1 
) 013526 023200 <MOVE ! SPX! IBUS! RCVDAT! SPO> 

1137 013530 RK3: OUTPUT BR. SELA!OUTDAL ;WRITE THE CHARACTER © 
(1) 009661 MICPC=MICPC+1 
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DCOMP PROTOCOL a tale MACY11 27( 1006) O7-MAR-77 16:24 PAGE €-S1 








PAGE: 0117 


MAC} 8©-« OB-DEC-76 10 RCVKE--HANDLE EVEN BYTES 
013530 o62202 (MOVE! WROUT! BR! <SELA! OUTDAL> > 
013532 SP BR, DECA, SPY sDECREMENT THE COUNTOF BYTES 
o00st2 MICPC=MICPC+ 
013532 063164 <MOVE! SPX! BR! DECA! SP4> 
013534 c RK& sNO OVERFLOW 
000663 MICPC=MICRC+1 
013534 105266 JUMP! CCOND! <RK6-INIT83000%4> ! <RKE-INIT8777/2>> 
013536 SP BR,DECA,SPS :DECREMENT HIGH BYTE OF COUNT 
oo00S64 MICPC=MICPC+1 
013536 O63165 «MOVE! SPX! BR! DECA!SPS> 
012540 2 RLY ;BYTE COUNT ZERO 
000665 MICPC=MICPC+1 
013540 111765 < JUMP! ZCOND! <RL4-INIT&3000%4> ! <RLY-INIT$777/2) > 
901 .IF NOF LOW : 
RK6:  BRWRTE IBUS,RCVCON :READ RECEIVER CONTROL REGISTER 
- BRY acvKd | IF ANOTHER CHARACTER--PROCESS 
STATE RCVKO 
ALWAYS REXIT 
RK4: BRO DLE 
ALWAYS RKS :IF NO NPR --PROCESS 
: ooo -ENDC 
3 O01 “IF OF LOW ' 
013542 . RK6: STATE RCVKO 
DODBES. MICPC=MICPC+1 
013542 909624 (MOVE !WRTEBR! IMM! <RCVKO-INIT8777/2>> 
013544 ALWAYS REXIT : 
000667 : MICPC=MICPC+1 
013544 104422 , < JUMP! ALCOND! <REXIT-INIT83000#4> ! <REXIT-INIT8777/2>> 
; 000 .ENDC . 
013546 RKE1:  §P IBUS, NPR, SPO :READ NPR REGISTER 
000870 MICPC=MICPC+1 
01354 123200 «MOVE! SPX! IBUS! NPR! SPO> 
013550 | BRWRTE IMM, 177 :MASK FOR ALL BUT CO 
000671 MICPC=MICPC41 
013550 000577 <MOVE!WRTEBR! IMM! <177>> 
013552 OUT BR. <AANDB! ONPR> ;TURN OFF ALL BUT CO 
000672 MICPC=MICPC+1 
013552 061270 <MOVE ! WROUTX! BR! <AANDB! ONPR> > 
013554 ALWAYS RKSO ' 
000673 MICPC=MICPC+1 
013554 104651 < JUMP! ALCOND! <RKSO-INITS$3000#4> ! <RKSO-INIT877772> > 
; RERSEEERAREEREREREND OF TIME CRITICAL PATHERRHEERAEREAEERARRERAREEREREEY LEREEEE 
013556 RCVKEO: SP IBUS, RCVDAT, SPO _ gREAD CHARACTER AND SAVE IN SPO 


000674 MICPC=MICPC+] 


a LT 


! B10 


omc DOCH PROTOCOL IMPLEMENTATION MACYL1 27(1006) O7-MAR-77 16:24 PAGE &-Se2 PAGE: Ol! 
BDCNEW. MA O6- opt S Er 75: i4 CVKE--HANDLE EVEN BYTES 
(1) 013556 023200 «MOVE! SPX! IBUS! RCVDAT! SPO> 
1162 013560 BRWRTE BR,SELA!SP1 :READ STATUS BYTE 
(1) 900875 MICPC=MICPC+1 
(1) 013560 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> 
1163 013562 BR7 PASWRD :MAINT MODE - SEE IF RLD MESSAGE 
(1) 000676 MICPC=MICPC+1 
dD) 013562 117600 < JUMP! BR7CON! <PASWRD-INIT&3000%4> ! <PASWRD-INIT8777/2> > 
\ 
1164 013564 ALWAYS RK3 OTHERWISE PROCESS NORMALLY 
1) 000677 MICPC=MICPC+1 
(1) O13564 104661 JUMP 1ALCOND! <RK-INIT $2000%4> ! <RK3-INIT8777 /2>> 
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013566 
013566 
013570 


013570 
013872 


013872 


0007CS 
023213 


00070i 
000703 


000702 
1O4422 
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MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-53 PAGE: 
RCVI--STORE UNNUMBERED MESSAGE TYPE 


-SBTTL RCVI--STORE UNNUMBERED MESSAGE TYPE 

SP IBUS ,RCVDAT, SP13 ;STORE UNNUMBERED TYPE 
MICPC=MICPC+ 

«MOVE! SPX! IBUS! RCVDAT! SP 12> 


STATE  RCVJ ;NEXT STATE IS J 
MICPC=MICPC+1 

eee ee INIT8777/2>> 

ALWAYS REXIT 

MICPC=MICPC+1 

JUMP! ALCOND! <REXIT- INIT&3000#4> ! <REXIT-INIT8777/2> > 


By oy PROTOCOL as tape 


013574 
013574 
013576 


013576 
013600 


013600 


D6-DEC-76 i 


0007C3 
114470 


000704 
000706 


000705 
104422 


. 
we 


10 


MACY11 27(1006) QO7-MAR-77 16:24 PAGE 6-54 PAGE: 9izd 
RCVJ--ROUTINE TO HANDLE SUBTYPE FIELD,SELECT AND FINAL 


RCVJ: 


.SBTTL RCVJ--ROUTINE TO ere SUBTYPE FIELO,SELECT AND FINAL 


BLUBYS ete ;"CALL” SELECT AND QSYNC SUBRCUTINE 
«JUMP! ALCOND! < SELOQSY- INITE30008 | <SELGSY-INIT877772>> | 

STATE Rete ;NEXT STATE IS N 
MICPC=MICPC+1 

<MOVE :WRTEBR? IMM! <RCVR- INIT&77772>> 

ALWAYS REXIT 

MICPC=MICPC+ 


1 
< JUMP! ALCOND! <REXIT-INIT&3000#4> ! <REXIT-INIT877772>> 
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013604 
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013606 
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O&-DEC-7E 10:14 


000706 
oco4e3 


00076? 
060353 


000710 
000713 


009711 
i0S136 
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MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-SS 
RCVR--UNNUMBERED MESSAGE RESPONSE FIELD 


.SBTTL_RCVR--UNNUMBERED MESSAGE RESPONSE FIELD 
;ENTERED FROM IDLE LOOP 


RcvR:  BRWRTE IMM.3 :REP MESSAGE TYPE TO BR 
MICPC=MICPCH1 
«MOVE! WRTEBR! IMM! <3>> 


NOP BR, SUS, SP12 <IS TYPE ACK OR NAK 
MICPC=MICPC+1 

aR! SUB! SP 13) 
STATE CVG :NEXT STATE IS RCVG 
MICPC=MICP 


HOVE | RTEBR# IMM! <RCVO- ~INIT877772>> 
NOT IGNORE. DOES NOT CLOCK “Cc” 


C RCVF 1 ; IF NOT 
MICPC=MICPC+1 

TUMP? CCOND! <RCVF 1- ~INIT&3000#4> ! «ROVE 1-INITS77772>> 
ies RDe ;D0 RANGE CHECKS 


MICPC=M ICPC+1 
« JUMP! ALEOND! <RD2- ~INIT&3CO0#4 ! <RO2-INIT8777/2> > 
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ATIO MACY11 27(1006) O7-MAR-77 16:24 PAGE E-SE PAGE: S122 
RCOVO--UNNUMBERED MESSAGE--NUMBER FIELD 


.SBTTL RCVQ--UNNUMBERED MESSAGE--NUMBER FIELC 
ENTER FROM IDLE 


Reva: STATE RCVE NEXT STATE IS ADDRESS 
MICPC=MICPC ‘ 
HOVE URTEBR! Tr! <RCYF- INIT$777/2>> 
ALWAYS RCVE 


MIC pc=M ICPC «1 
CTUMPHALCOND! (ROVE 1-INITS2000e4 | ROVE L-INITS?77/2 


es ee --e Tee ee ee eee 


coves 
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22 OOCMP PROTOCOL IMPLEMENTATIO MACYL1 27(1006) O7-MAR-77 16:24 PAGE &-57 Page: C123 
NEW. Mec 206 -B6-DE--76 10:14 - RCVL==PROCESS CRC3 
1133 .SBTTL RCVL--PROCESS ¢RC3 
1194 “ENTERED FROM IDLE LOOP 
1195 913620 cvL: §PBR  IBUS,NPR,SPO :READ NPR CONTROL 
(1) 000715 MICPC=MICPC+ 
(1) 013620 123600 (MOVE! SPBRX! IBUS!NPR!SPO: 
\i3 
1156 001 IF NOF LOW 
119? RY RLI :RCV NPR BRANCH 
1199 00 -ENDC 
1199 alah "IF OF L 
1205 013622 BRO IDLE 
ch) COO7 IE MICPC=MICPC+1 > 
(1) 013622 102045 < JUMP! BROCON! < IDLE-INITS300084> !< IOLE-INIT8777/2> > 
1201 o9c -ENDC 
1202 013624 Ri2:  BRWRTE Im 17 :MASK TO TURN OFF CO 
(1) 900717 MICPC=MICP 
Db 013624 000577 | CASE TWATESREINM! <177>> 
(a3 
1202 013626 OLIT BR, AANDB! ONPR 
1) o00720 MICPCAMICPE+ 
(2) 01362 061279 (MOVE! WROUTX! BR! <AANDB! ONPR) > 
1204 013620 RL2:  SPBR _IBUS,10BA1,SPO | :READ LOW ORDER BYTE OF ADDRESS 
(13 009721 MICPC=MICPC+} 
(13 013630 023540 «MOVE! SPBRX! IBUS! IOBA1!SPO> 
1205 013632 OUTPUT BR, INCA!OBAl ; INCREMENT THE LOW ORDER SY7E 
1) non722 MICPC=MICPC+1 
dh 213632 OS&D0EE «MOVE! WROUT! BR! < INCA! OBAL> > 
1206 012634 sp IBUS, 10BA2, SPO :READ HIGH SYTE 
(1) 90072 MICPC=MICPC+ 
(1) 013634 023160 CHOVE! SPX? TBUS! IOBA2! SPO> 
1207 913636 QUTBUT BR ac! opa2 ©ADD CARRY TO HIGH BYTE 
1} 900724 MICPC=MICP 
(1) 013636 062107 <MOVE!WROUT! TBR! <ACLOBA2> > 
1258 
1209 013€40 STATE _RCVM 
(1) 900725 MICPC=MICPC+1 
(1) 013640 000727 CMOVE!RTEBR! IMM! <RCVM- -INIT$777/2>> 
1215 913642 ALWAYS RcvE i 
1) 007 ee MICPC=MICPC+ 
(1) 013642 104536 < JUMP! ALEOND! <RCVF1-INI TS3OCORY> § ROVE L-INITS?777/2> > 
121} : 
1212 901 "IF NDF LOW aot 
1212 Ril: BRO IDLE sNPR GOING --GET OUT 
i214 ALWAYS RLe 
tele 0c ENDC 
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IMPLEMENTATION 


16:14 


macy 1d 
CVM==P 


ROVM: 


H10. 


4 (1096) 07-MAR-77 PAGE €-S& SAGE: 
oc 


SS CRC4--END OF on A eMESSACE 


.SBTTL RCVM--PROCESS CRC4--END OF DATA MESSAGE 
sENTERED FROM IDLE LOO 
iIF CRC CORRECT -- QUEUE INTERUPT AND UPDATE RESPONSE 


‘IF CRC WRONG SEND NAK : fda 
SRURTE BUS. UBER :READ UNIBUS ER REGISTES 
MICPC=MICPC+ 
MOVE! WRTEBR! IBUS! <UBBR? > 
BRO NXMERR :NON-EXISTANT MEMORY 


MICPC=MICPC+1 
UMP! BROCON! <NXMERR- ~INIT33000#4 ! <NXMERR-INITS77772> > 


SP IBUS,RCVDAT, SPO ;READ CRC CHARACTER 
MICPC=MICPC+ 

«MOVE! SPX! IBUS!RCVDAT!SPC* 
BRWRTE IBUS,RCVCON 
MICPC=MICPC+ 

(MOVE! WRTEBR! IBUS! <RCVCON> > 
BRO RCVM1 sIF CRC GOOD -- PROCESS 
MICPC=MICPC+1 

< JUMP! BROCON! <RCYM1-INITS3000#4> !<ROVM1-INIT8777/2>> 


BRWRTE BR ) aaah ;READ STATUS SYTE 
MICPC=MICP 


sREAD RECEIVER CONTROL REGISTER 


‘ (HOVE !WRTEBR!BR! <SELA!SP2> » 


BR? RHX :CRC ERROR IN BOCT MODE - FLUSH 
MICPC=MICPC+1 ; 

< JUMP! BR7CON! «RHX-INIT&3000#4> ! <RHX-INIT8777/2>> 

LDMA _—sIMM, T :ELSE SEND NAK --DATA ERRCR 
MICPC=MICPC41 

.IF IDN IMM, IMM 

HOVE !LOMAR! IMM! «18377» 

<MOVE!LOMAR! IMM! <T>> 

.ENDC 


MEMINC IMM,2 :NAK TYPE 
MICPC=MICPC41 ‘ 

«MOVE! WRMEM! INCMAR! IMM! <2>> 

MEMINC IMM, 302 :DATA ERROR SUBTYPE 
MICPC= 


MICPC+1 
«MOVE! WRMEM! TNCMAR! IMM! <302>> 


LOMA —_ IMM, NDATS 
RICPC=MICECH 


IMM, IMM 
«HOVE! LOMAR! IM! <NDATS8377> 
(MOVE! LDMAR! IMM! <NDATS> > 
ENDC 
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PLEMENTATION MaACY11 27(1 
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110 


O7-MAR-77 16:24 PAGE €-S9 Paoe: 0:25 


RC4--END OF DATA MESSAGE 


ow 


ALWAYS RHS ;SENO NAK 
MICPCEMICP C+1 
< JUMP! ALCOND! <RHS- ~INITS30CO%4> ! «RHE-INITS77772>> 


LOMA IMM, «ihre ;sPOINT TG ERROR WORD 


MICPC=MICPC 
IF IDN IMM, IMM 
(HOVE ELDMAR! IMM! « «RTHRS#3) 8377>> 
(MOVE! LOMAR! IMM! < <RTHRS+3> >> 
.ENDC 
BRWRTE IMM,10 :MAINT MESSAGE ERROR 
MICPC=MICPC41 
«MOVE! WRTEBR! IMM! <10>> 
ALWAYS RCEXY “GIVE FATAL ERROR 


MICPC=MICPC+1 Avie 
CJUME!ALCOND! (RCEXY-INITB20O0#4> ! :REXY=INIT8777/2) 
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'DMCLL DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE &-6C PaGE: 
CNEW. MRC DE-DECHW7E 10:14 EM2--PROCESS RLD MESSAGE 
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-SBTTL_ EM2--PROCESS RLD MESSAGE 
;ENTERED FROM IDLE LOOP 
IF RLD PASSWORD CHECKS TRIGGER THE SOOT ROM 


013702 EM2:  BRWRTE IBUS,RCVDAT “READ THE CHAR 
Oco74e MICPC=MICPC+h 

013702 920600 «MOVE! WRTEBR! IBUS! <RCVDAT> > 

013704 CMP BR, SP16 :IS IT @ MATCH 
000747 MICPC=MICPO41 

913704 060376 <SUBTC! BR! SP16> 

013706 2 EM3 
909759 MICPC=MICPC+1 

013706 105757 < JUMP! ZCOND! <EM3-INITS$3000%4> ! <EM3-INIT8&77772> > 

:FALL INTO R 

013710 RHX:  BRWRTE BR,AA!SP] :READ STATUS nBYTE SHIFTED LEFT 
905751 MICPC=MICPC+1 

013710 d€652) <MOVE! WRTEBR! BR! <RAISP1>> 

012712 BRY 10$ sOLE RECEIVED IN NORMAL MODE 
o90752 MICPC=MICPC+1 

013712 197354 < JUMP! BRYCON! < LO$-INIT&3000%4> ! < 10$-INIT8777/2>> 

012714 ALWAYS FLUSH sALREADY IN MAINT MODE 
900753 MICPC=MICPC+1 

013714 1O44i5 < JUMP! ALEOND! <FLUSH-INITS3000%4> ! <FLUSK-INIT8777/2) > 

013716 10$: | BRWRTE IMM,163 :MASK TO CLEAR ALL MAINT SELATED SITS 
000754 MICPC=MICPC+1 

013718 oodsé3 (MOVE !WRTEBR! IMM! <1$3>> 

013720 SP BR, AANDB, SP1 ;CLEAR THEM 
909755 MICPC=MICPt+1 

012720 083261 (MOVE! SPX! BR! AANDB!SP1 > 

013722 ALWAYS FLUSH 
p00756 MICPC=MICPC+1 

013722 104415 < JUMP! ALCOND! <FLUSH-INITS3000#4> ! <FLUSH-INIT8777."2> > 

013724 EM3: SP BR, DECA, SPY ;DECREMENT CHARACTER COUNT SY ONE 
000757 MICPC=MICPC+1 

013724 063164 “MOVE! SPX! BR! DECA!SP4> 

012726 2 EMTRIG : TRIGGER AC LON 
000760 MICPC=MICPC+1 

013726 11&720 < JUMP! ZCOND! EMTRIG-INITS3000%4> ! <EMTRIG-INITS777/2>> 

013720 ALWAYS IDLE 
900761 MICPC=MICPC+1 

013730 ioo44s <JUMP!ALCOND! <IDLE-INIT&2000%4> !< IDLE-INIT&777“2> > 
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000764 
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IMPLEMENTATION 
é 1 


DE-DEL v7 dus 714 


MACY 1 


EHS--PROCE 


BOOT 


RESEXT: 


TABMXT: 


a 


( 1908) O7-MAR-77 16:24 PAGE 6-6! PAGE: 0187 
SceSe RLD MESSAGE 
BRWRTE BR SELA!SP! :SEE IF IN MAINT. MODE 
MICPC=MICPA+ 


CHOVE! WATER! BR! « SELA!SPi>> 


BR? A3 ;BRANCH IF SC AND TREAT OLE IKE NUM. MSG. 
MICPC=MICPC+1 


« JUMP! BR7CON! <RA3-INITS3000#4> !<RAS- ~INITS77772)> 


BRWRTE IMM,210 ;MASK TO SET MAINT MODE AND OLE RECY’D 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM! <210>> 


SP BR, AORB, SP1 
MICPC=MICPC+1 
MOVE? SPX'BRE AORB!SP1> 


always rag ' ;TREAT LIKE NUMBERED MESSAG 
MICPC=MICPC+1 


< JUMP! ALCOND! <RA3-INIT&3000#4> ! <RAS-INIT877772> > 


ett IMM,4 ;ADO TC MXT BITS 
MICPC=MICPC41 
«MOVE! WRTEBR! IMM! <4>> 


Sp IBUS, NPR, SPO 
MICPC=MICPC+ +4 
«MOVE! SPX! TBUS! NPR! SPO> 


OUT BR ADD! ONPR 
MICPC=MICPC+1 
<MOVE! WROUTX! BR! <ACD! ONPR> > 


ALWAYS RES] 
MICPC=MICPC+1 
«JUMP! AL COND! <RESI- ~INIT83000#4> !<RESI-INIT8777/2>> 


BRURTE IMM,4 s INCREMENT MXT 
MICPC=MICPC41 
<MOVE! WRTEBR! IMM! <4>> 


sp IBUS , UBBR, SPO 
MICPC=MICPC+1 
«MOVE! SPX! TBUS! UBBR! SPO> 


OUT BR, ADD! OBR 
MICPC=MICPC+1 
CMOVE? HROUTX! BR! <ADD! OBR» > 


ALWAYS ECX 
MICPC=MICPC+1 
«JUMP! ALCOND! <ECX-INITS300084> !<ECX-INITS777-2>> 


;SET THE BITS 


300 IT 


;READ BR CONTROL 


$ZERO 
MICPC=MICPC+1 
000000 


L10 


mewte -A°u5 lol ~F ne, "mo! ated AAW os - = 
Mize DDN PRDTOGO. IMPLEMENTATION MACY11. 27,1006) Q7-MGR-77 16:24 PAGE &-62 
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DMS11 DOCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-62 PAGE: 9129 
‘SDCNEW.MAC © OG-DEC-76 10: EM2--PROCESS RLD MESSAGE 
1275 012766 . =INIT+2000 
1276 900777 MICPC=777 
1e7? .SBTTL TMTDA--TRANSMITTER DISPATCH ROUTINE 
: : 
1279 013766 TMTDA: ®BRWRTE IBUS, TMTCON :READ TRANMITTER CONTROL REGISTER 
(13 001000 . -MICPC=mIcPc+! 
1) 013766 020620 THOVE !WRTEBR! IBUS! <TMTCON? > 
1280 013770 .BRY _ DP, SELA, <2!PAGE2> -IF READY PROCEED 
O13 901901 MICPC=MICPC+1 
1) 013770 173202 <JUMP! BRYCON!DP!SELA!2!PAGE2> 
1281 013772 ALWAYS TI] ELSE IDLE 
C1} 001092 MICPC=MICPC+1 
4) 012772 100452 < JUMP! ALEOND! <I1- ~INIT$3000#4> !<I1-INIT8777/2>> 
eg 
2 
\ 
» 


~ 
me eee ee ee Pata Gie Sy Tita FES a ae eS ee 
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; OMC11 = PROTOCOL IMPLEMENTATION 1 9A 27(1006) O7-MAR-77 16:24 PAGE 6-64 
W. MA ;' 





DDCNEW O6-DES-76 10:1 MTA--FIRST CHARACTER OF HEADER 
1263 “\SBTTL TMTA--FIRST CHARACTER OF HEADER 
1285 013774 TMTA:  BRWRTE BR,AAISPIO :SHIFT LEFT 
(1) 901903 MICPC=MICPC+1 
| (1) 013774 O60530 (MOVE! WRTEBR! BR! <AA!SP1O>> | 
| 1386 013776 BR7 RCVCK 3 
| “Cn 901004 MICPC=MICPC41 
1) 013776 107614 < JUMP! BR7CON! <RCVCK-INIT8&3000%4> ! <RCVCK-INIT8777/2> > 
4 
1287 014000 TAl:  BRWRTE BR,SELA!SPIO sREREAD STATUS 
C1) og1005 MICPC=MICPC+1 
1) 014006 060610 (MOVE! WRTEBR! BR! <SELA!SP10>> 
| 1288 14002 BRO NUMSYN ;IF UNNUMBPENDING -- SEND IT 
rr ass 001006 MICPC=MICPC+1 
(1) 014002 112031 < JUMP! BROCON! <NUMSYN-INIT83000%4> ! <NUMSYN-INIT877772> > 
\ 
1289 914C04 BRSHFT . 
(1) 90:097 > MICPC=MICPC+1 
y) 014004 9O01620 «HOVE! SHF TBR! MRTEBR! SELB» ' 
| 3290 14006 BRY Il IF START MODE--EXIT 
| (2) 001010 MICPC=MICPC+1 
| 1) 014006 103052 < JUMP! BRYCON! <11-INIT&3000#4> ! <I1-INIT877772>> 
-| 1231 014010 BRI NUMSYN sIF LINE HAS GONE IDLE SEND SYN 
(1) 901011 Ma CPC=MICPC+1 
1) 014010 112433 < JUMP! BRICON!<NUMSYN-INIT83000%4> ! <NUMSYN-INIT877772> > 
! (1) 
| 4e92 ;ELSE--START TO SEND MESSAGE 
, 1293 o14o12 TMTEXT: TSTATE TMTB . 
; "Tr o01012 MICPC=MICPC+1 ‘ 
| (1) Ol4012 o000453 <MOVE !WRTEBR! IMM! < TMTB-INIT&777/2> x 
| <8) 901013 MICPC=MICPC+1i 
(1) 014014 063222 <MOVE ! SPX! BR! SELB! SP2> 
| 1294 01401 BRWRTE BR,SELA!SP1 :ARE WE IN BOOT MODE 
ae if ¢ 901014 MICPC=MICPC+1 
| (1) O14016 06060: (MOVE! WRTEBR! BR! <SELA!SP1>> 
| 1295 o14020 BR? TMTBT :IF SO SEND DLE 
Paya 901015 MICPC=MICPC+1 
1) 014020 113427 < JUMP! BR7CON! < TMTBT-INIT&3000%4> ! < TMTBT-INIT8777 2 > 
1296 014022 BRWRTE BR. <SELA!SP10> ;UNNUMB MESSGE? 
| (1h) 001016 MICPC=MICPC+1 yaa 
1) 014022 O&0610 (MOVE! WRTEBR! BR! <SELA!SP10>> 
| 1297 o14024 - BRO TMTUN IF SO --BRANCH 
| 001017 MICPC=MICPC+1 
| (1) 014024 112023 < JUMP! BROCON! < TMTUN-INIT&3000%4> ! < TMTUN-INIT8777/2> > 
1298 014026 BRWRTE _IMM,201 ) ELSE STORE SOH 
C1) 001020 MICPC=MICPC41 
(1) 914026 OO0060! (MOVE! WRTEBR! IMM! <201>> 
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. PROTOCOL IMPLEMENTATIO 


014030 
014030 
014032 
014032 
014034 
014034 


014036 
014040 


014040 
014042 
014042 
014044 
014044 
014046 
014046 


014050 
014050 
C140Se2 
014052 
014054 
014054 
014056 
014056 
014060 
014060 
014062 
014062 
014064 


DE-DEC-76 10:14 


001021 
O0&2228 


001022 
1004Se2 


001023 
000600 
001024 
C63e2e 


001025 
oo0c40S 


001030 
110421 


001033 
1094Se 


001034 
020660 


°; 


001035 
001620 


001036 
1030Se 


~001037 


Bll 


MACY11_ 27(1006) QO7-MAR-77 16:24 PAGE 6-65 PASE: 0131 
TMTA--FIRST CHARACTER OF HEADER 


TMTAS: 


TMTUN: 


TMTBT: 


AUMSYN: 


S$: 


—— = - 


OUTPUT BR, <SELB! TMTDAT> -IN TMT SILC 
MICPC=MICPC+1 
CMOVE! ROUT! BR! <SELB! TMTDAT: ) 


ALWAYS 11 
MICPC=MICPC+! 
< JUMP! ALCOND! <I1- INITS3000%4> ! <I1-INIT&77772>> 


TSTATE TMT 
MICPC=MICPC 

CROVE SLATER! THM CTHTI- INIT8777/2>> 

<MOVE ! SPX! BR! SELB! SP2> : 

BRWR S -ENG TO BR 

MICPC=MICPC41 


«MOVE! WRTEBR! IMM! <5>> 


ALWAYS TMTAS , 
MICPC=MICPC+1 « e- 
«JUMP! ALCOND! <TMTAS- INIT&3000%4> ! < TMTAS-INIT877772>> 


BRWRTE IMM, 220 :WRITE A DLE TO BR 
MICPC=MICPCH1 
«MOVE! WRTEBR! IMM! <220> > 


ALWAYS TMTAS ;SEND IT 
MICPC=MICPC+1 
«JUMP! ALCOND! < TMTAS-INIT&3000%4> ! < TMTAS-INIT8&77772>> 


al BR, <SELA! SP10> ;READ LINE STATUS WORD 


ICPC=MICPC+1 
(MOVE! WRTEBR! BR! <SELA!SP10>> 
BR? S :IF OK TO SEND--PROCEED 
MICPC=MICPC+1 
CTUMP! BRICON! <SS- INIT&3000#4> ! <S$-INIT877772>> 
ALWAYS Il ;ELSE--IDLE 
MICPC=MICPC+1 
< JUMP! ALCOND! <I1-INIT&3000%4> ! <I1-INIT877772>> 
BRWRTE IBUS, MODEM ;ARE WE STILL SENDING? 
MICPC=MICPC+1i 
(MOVE! WRTEBR! IBUS! «MODEM > 
BRSHFT 
MICPC=MICPC+1 
MOVE! SHE TBR! WRTEBR! SELB> 
BRY 11 :RTS SET? IF SO WE ARE--STALL 
MICPC=MICPC+1 
< JUMP! BRUCON! <I1-INIT&2000#4> ! <I1-INIT8&777/2>> 


BRWRTE IMM,373 ;MASK TO TURN OFFLINE IDLE 
MICPC=MICPC41 


wee a ee a ee oe - + ee a eS Ce Ce + ee Ce 
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DMCA 1 DOCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-66 PAGE: 0122 
| BOCNEW. MAC 06-DEC-76 | TMTA--FIRST CHARACTER OF HEADER y 
| (4) 014064 90077 «MOVE! WRTEBR! IMM! <373>> 
| 1214 O1406 sp BR, AANDB, SP1O sIN LINE STATUS WORD 
Bait 001040 MICPC=MICPC+1 
1) 014066 063270 <MOVE ! SPX! BR! AANDB! SP10> 
| 1315 914070 TSTATE TMTAL 
> war 001041 MICPC=MICPC+1 
; (1) 014070 900445 (MOVE !WRTEBR! IMM! <TMTAL-INIT&777/2>> 
. + 001042 MICPC=MICPC+1 
| (1) o14072 083222 <MOVE ! SPX! BR! SELB! SP2> 
| 1216 01 .IF NOF SLOW page 
1317 BRWRTE IMM, 12 :SET UP NUMBER OF SYNS 
| 1318 900 “ENDC 
| 4319 001 ‘IF DF SLOW 
, 1320 014074 BRWRTE IMM, 10 
(13 001043 MICPC=MICPC41 
| (1) 014074 oo0416 MOVES URTEBR! IMM! 10>> 
1 1323 000 .ENDC 
1322 014076 Sp BR, SELB, SP6 ;STORE IN SP6 
(1) 001044 MICPC=MICPC+1 
(1) 014076 063226 <MOVE! SPX! BR! SELB! SP&> 
| 1322 924100 TMTAL: SP BR, DECA, SP6 ;DECREMENT SYN CCUNT 
Paar ts 001045 MICPC=MICPC+1 
1) 014100 963166 «MOVE! SPX! BR! DECA! SPE> 
' 1324 g14162 T 
ae & OC 1046 frcPC= MICPC+1 
1) o14i02 111412 SUMP? COND! < THTEXT- INIT&3000%4> ! < TMTEXT-INIT8777/2>> 
J 
1325 014104 BRWRTE IMM, 1 ;MASK FOR SOM 
(1) 001047 MICPC=MICPCH1 
ct) 014104 990401 «MOVE! WRTEBR! IMM! <1>> 
i326 014106 OUTPUT BR,SELB!OTMTCO ;WRITE IT TO TMTR CONTROL 
(1) 00105 MICPC=MICPC+1 
(1) 014106 962221 (MOVE ! WROUT! BR! <SELB!OTMTCO> > 
1327 014110 BRWRTE IMM, 226 ;SYNC CHAR 
(1) 001051 MICPC=MICPCH1 
1) 014110 o00626 <MOVE ! WRTEBR! IMM! <226) > 
1328 o14112 ALWAYS TMTAS 
co ans co1cse MICPC=MICPC+1 
h) O14ii2 11042! TOME? ALCOND! <THTAS- INIT83000#4> ! <TMTAS-INIT3777/2> & 





- ———- eee: eo sees ee ee eee ee ee eee ee 
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DMC 12 DOCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) Q7-MAR-77 16:24 PAGE 6-67 


OCNEW.MAC © O&-DEC-76 10:14 TMTB--OUTPUT FIRST CHAR OF COUNT 
1330 : .SBTTL TMTB--OUTPUT FIRST CHAR OF COUNT 
1332 014114 TT8:  §PBR —_IBUS,NPR,SPO :READ BR CONTROL REG 
(1) 001953 MICPC=MICPC+Ii ‘ 
a) 014114 123600 <MOVE! SPBRX! TBUS! NPR! SPO> 
(1) 
1333 014116 BRO IDLE :NPR GOING--GET OUT 
(1) 001054 MiCPC=MICPC4+1 
1) 014116 10204S . < JUMP! BROCON! < IDLE-INIT&3000%4> ! < IDLE-INIT877772> > 
1334 014120 LOMA IMM LTC ;GETPOINTER TO NEXT TMT LINK - 
(1) oo10s5 MICPC=MICPCH1 
(1) .IF IDN IMM, IMM . 
1) 014120 019071 (HOVE! LOMAR! IMM! <LTC8377> > 
(1) (MOVE! LDMAR! IMM! <LTC>> 
et 000 . END 
1335 014122 LDMA _MEMX, SELB!SPX!SP1E :POINT TO THE LINK 
(1) o0:0S& MICPC=MICP ct +4 
(1) 001 IF IDN MEMX, IMM 
ee <MOVE!LDMAR! IMM! «SELB! SPX!SP168377>> 
J 
(1) O14122 053236 <MOVE! LDMAR! MEMX! <SELB!SPX!SP1E>> 
1) 099 END 
(lJ 
1236 014124 MEMINC IMM,3 _ ;WRITE MSG TMTED TO FLAGS 
(1) 991057 MICPC=MICPC41 : 
h) 014124 O16403 (MOVE! WRMEM! INCMAR! IMM! <3>> 
1337 014126 MEMINC DP,SELA!SP12 :PICK UP MSGNO 
(1) 001060 MICPC=MICPC+1 
(1) 014126 O76612 <MOVE! WRMEM! INCMAR! DP! <SELA!SPi2>> ‘ 
1338 014130 STA TE MTC :ADDRESS TMTR STATE 
(1) 001061 MICPC=MICPC+1 
(1) 014130 990500 CHOVE!URTESR! IMM! <TMTC= INIT877772> > 
1339 014132 TBO: = SP BR SELB, SPe :UPDATE IT 
(1) 001062 MICPC=MICPC+1 
(1) 014132 O63222 «MOVE ! SPX!BR! SELB! SP2> 
1340 014134 OUTPUT <MEMX! INCMAR> , SELB! IBAL - WRITELOWBYTEOF ADDRESS 
(1) 001963 MICPC=MICPC+1 
Gh) 014134 O56224 «MOVE! WROUT ! MEMX! INCMAR! <SELB! IBAL>> 
\ 
1341 014136 OUTPUT <MEMX! INCMAR? , SELB! IBA2 -WRITE HIGH BYTE OF ADDRESS 
(1) 001064 MICPC=MICPC+1 
1) 014136 OS6225 <MOVE ! WROUT ! MEMX! INCMAR! <SELB! IBA2> > pr 
134 014140 | sp MEX SELB,SP7  ;HIGH BYTE OF COUNT TO SP7 
(1) 001065 MICPC=MICPC+ 
(1) 014140 043227 <MOVE ! SPX! MENX! SELB! SP7> 
1343 sWAIT TO MASK OFF MEM EXT. BITS 
1344 o1414e sp IMM, 300, SPO :MASK FOR MXT ¥ 
(1) OO10EE MICPC=MICPC41 
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DMCii DDOMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE 5-66 PAGE: 





| BoE NEW.MAC  O6-DEC-7E Te: 14 TMTB-<OUTPUT FIRST CHAR OF COUNT 
(1) 014142 903300 «MOVE! SPX! IMM! 300! SPO> 
| {1} 
/ 1345) O14144 BRWRTE MEMX! INCMAR, AANDS! SPO STURN OFF CC2 
wee fy 001067 MICPC=MICPC+1 
| 1) 014144 OS4EED (MOVE! WRTEBR! MEMX! INCMAR! <ARNDB! SFO> > 
| 1346 OL4146 BRSHFT :SHIFT BITS INTO CORRECT POSITION 
+ tn) 001070 MICPC=MICPC 
iD) 014146 001629 UNSVE? SHE TER! MRTEBR! SELB> 
' 1347 g14iso BRSHFT 
My fh 901071 MICPC=MICPC+1 
(1) O14iSO 001620 CHO? SHETBR! WRTEBR! SELE> 
134@ 914152 BRSHFT 
(1) oc1072 MICPC=MICPC+1 
ch) 014152 odie6ed (MOVE! SHF TBR! WRTEBR! SELB> 
| 1349 O14154 BRSHFT 
+ 23 901073 MICPC=MICPC+1 
| cH) 014154 901620 WHOVE! SHETBR!WRTEBR! SELE> 
1350 014156 OUT BR. SELB! ONPR - 
1) 091074 MICPC=MICPC+1 
ch) D141S&6 061230 <MOVE! WROUTX! BR! <SELB! ONPR> > 
1351 014160 SPBR _MEMX! INCMAR, SELB, SP& sLOWBYTE OF COUNT TO SPE 
(1) 901075 MICPC=MICPC+1 
ae O14160 057626 (MOVE !SPBRX! MEMX! INCMAR! SELB! SP6> 
1352 o141e2 OUTPUT BR, SELB! TMTDAT ;WRITE IT TO TMTR SILO 
(1) 001076 MICPC=MICPC+ 
(1) 14162 962239 <MOVE! WROUT! BR! «SELB! TMTCAT> > 
(23 
1362 C14164 ALWAYS IDLE 
(1) 901977 MICPC=MICPC+1 
C1) D14ie4 180445 < JUMP! ALEOND! <IDLE- ~INIT&3000%#4> !< IDLE-INIT8777/2) > 
‘i 3 
1254 ; 
‘ ! 


ee i ee ee ee ee + 


i a i re i ee ee eee =. 
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OMSi; DOCMP PROTOCOL IMPLEMENTATION MACYL1 27( 1006) O7-MAR-77 16:24 PAGE 6-65 
BorNew.MAC 06. O-Dec-76 fe:14 TMTC--OUTPUT SECOND CHAR OF COUNT 
1356 .SBTTL TNTC--OUTPUT SECOND CHAR OF COUNT 
1355 914166 T™Tc:  BRWRTE IMM, 77 sMASK TO CLEAR MXT BITS 
()) 001i0C MICPC=MICPC41 
(1) O14166 900477 STOVE TWRTEBR! IMM! (77> 
1369 914170 SPER _ BR, AANDB, SP7 CLEAR THEM 
1) 00110: MICPC=MICP4 
4) 014170 O&3667 <MOVE! SPBRX! TBR! AANDB! SP7> 
1360 014172 OUTPUT OP, <SELB! TMTDAT> sWRITE TO TMT SILC 
CL) 001192 MICPC=MICPC+1 
(1) 14172 062230 (MOVE !WROUT! DP! <SELB!TMTDAT> > 
1361 014174 LOMA _—IMM.LTC -POINT TO TMT BUFFER 
C1) 901102 MICPC=NICPCHI 
(1) O01 I IMM. IMM 
(1) 014274 019971 ¥ MOVE SLDMAR! IMM! <LTC837 7» 
(1) | CHOVE!LDMAR! IMM! <LTC>> 
cH) 00 -ENDC 
1362 014176 BRWRTE IMM.6 OFFSET TO NEXT LINK 
C1} 901104 MICPC=MICPC41 
cb) 014176 900456 CHOVETURTEBRE IMM! <6> > 
1363 014200 MEM BR ADD! SP16 UPDATE THE POINTER 
(1) 901195 MICPC=MICPC+1 
i) 014200 Ob24i6 (MOVE !WRMEM! BR! <ADD!SP1E>> 
1364 024202 BRWRTE IMM, TML GET WRAPAROUND ADDRESS 
(1) 001106 MICPC=MICPC41 
(1) 014202 O00545 (MOVE! WRTEBR! IMM! <TMLS> > 
fas 
1365 014204 CMP BR, SP16 : WRAPAORUND 
(1) 901197 MICPC=MICPC+ 1 
a) 014204 960376 <SUBTC! BR! SP 16> 
(i) 
1366 014206 . 2 10$ 
hd OC11ID «= MICPC=MICPC+1 
cb) 014206 1115123 , CTUME? SCOND! < 108-INITB3000%4> # < 108- INIT$777/2>> 
1367 014210 S$: STATE THTD 
(13 O01111 MICPC=MICPC+1 
(1) ol4e10 Op0Si5 oe MOVE! WRTEBR? Imm! « THTD- -INIT8?777/2>> 
1368 Ol4e2le BLWAYS XEXIT 
1) 001112 MICPC=MICPC+1 rae 
ae o14212 100451 CTSMP? AL COND! <XEXIT- ~INIT&300084> ! <XEXIT-INIT8777/2>> 
} 
1369 014214 10S: MEM IMM, TML1 G0 BACK TO FIRST LINK 
(13 001113 MICPC=MICPC41 
1) 914214 002473 <MOVE !WRMEM! IMM! <TMLI>> 
1370 o1421e , ALWAYS SS 
(1) 901114 MICPC=MICPC41 a 
(1) o4ele 110611 CIUMP!ALCOND! <S$-INIT&30Q0#4> !<S$-INITS?77-2>» 


6 
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"M211 DOCME PRS oth IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE 6-71 
-EAENEW. MRC 806 DG-DEc-7E lo:14 TMTD--RESPONSE FIELD- NUMBERED Message. 
1372 .SBTTL TMTD--RESPONSE FIELD-NUMBERED MESSAGE 
1374 14220 ™TD: STAT 
1) oo1i:5 MICPC=MICPC41 
1) ol4e20 900623 THOVE! WRTEBR! IMM! TMTE-INIT8777/2> > ; * res 
1375 014222 SP BR, DECA, SPE sADJUSRT COUNT FOR WO'S COMPLEME 
cl O01 Lie MICPC=NICPE 
+ o14222 O6316e MOVE! SPX! BR! DECA! SPE> 
1376 o14e24 C 102 “NC OVERFLOW 
(1) 061117 MICPC=MICPC+1 
1) on4ee4 11122 JUMP! CCOND! <TD2-INITS 300084) !« TL2-INIT3777“2>> 
1377 914226 SP BR, DECA,SP7 :DECREMENT HIGH BYTE OF COUN? 
Ck 901120 MICPC=MICPC+1 
(1) 014226 6316? (MOVE! SPX!BR!IDECA!SP7> 
1378 014230 TD: LOMA IMM. ISP11 -RESP FIELD ADDR TC MAR 
ik 00:12: NICPC=NICPCH 
tf 601 TF IDN IMM, IMM 
(1) D14230 OicI71 «HOVE !LDMAR! Ir! <15P118377> ) 
+e ’MOVE!LDMAR! IMM! <ISPL1>> 
+ 900 END 
1393 391 IF NOF LOW 
1306 SUTPUT MEMX,SELB!TMTOAT sWRITE IT TO SILC 
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NEW. MBC O6-DEC-76 ib:i4 TMTD--RESPONSE FIELD-NUMBERED MESSAGE 


Paras €0) o4 
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ME PROTOCOL IMPLEMENTATION MBCYL1 27(1006) O7-MAR-77 16:24 PAGE 11 


‘i -ENDC 
oci IF DF LOW 
014232 LWAYS TJl 


001122 MICPCEMICPC+1 ete, 
oi4232 i1déze cJOMPHALCOND! ¢TIL-INIT$SO00#4) !: TIL-INIT$777-2 
300 JENDC 


, 
¢ 


oMCiL DOCME PROTOCOL IMPLEMENTATION MACY1L1 27(1006) QO7-MAR-77 16.24 PAGE 12 


COCNEW.MAS © 96-DEC-76 10:14 TMTE--NUMBER FIELD--NUMBERED MESSAGE 
1332 \SBTTL TMTE--NUMBER FIELD--NUMBERED MESSAGE 
1364 o142e34 TMTE: 
1395 O14e34 SPBR _—sIBUS. NPR, SPO -READ NPR CONTROL REGISTER 
(1) 901122 Tee 
1) 014234 123600 (MOVE !SPBRX! TRUS! NPR! SPO) 
139% 014236 BRO. :BUSY - GET OUT 
(1) 001124 gomcee : 
(1) oleae 108052 MOOT OROCONE <1i-INITS3O00"4> # <I1-INITS777/2> > 
\ 
1297 014240 BRWRTE BR, SELA!SP12 
(1) 001125 MICPC=MICPC+1 
(1) o1¥a4e 060612 (MOVE !WRTEBR! BR! <SELA!SP12>> 
1368 o1424e QUTPUT BR, ‘SELB! TNTDAT> WRITE IT TO THE SILO 
ti) 001126 MICPC=MICPS 
(1) OIME42 062230 CMOVE !WROUT!BR! <SELB! TNTDAT> > 
1399 14244 STATE _TMTF 
<1 ead 901127 MICPC=MICPC+1 
(1) or4e44 90663) CHOVETUATEGR! IMM! ¢THTE-INITS777/ >) 
1400 O1424¢ ALWAYS TH3 
1) Bi a0 MICPC=MICPC+1 
(T) one4e = TI0673 MMB TAL COND! <THO-INITSO00#4> # TH2-INIT$777 /2> 


Lil 


DMC12 DOCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE l2-1 


EDCNEW. MMC ©. S-Oee-76 10:14 TMTE--NUMBERED MSG ADDRESS FIELD 
14g2 \SBTTL TMTF--NUMBERED MSG ADDRESS FIELD 
1404 014250 mre: tate TF 
1) 901121 MICPC=MICPC+1 
{1} g14e250 900635 CMOVE !WRTEBR! IMM! <TFL-INIT&777/2) > 
1405 o142852 TF2: SP BR. SELB, SP2 
1) 00:132 MICPC=MICPE+i 
(1) 1Mes2 063222 <MOVE! SPX! BR! SELB! SP2> 
1406 014254 BRWRTE IMM, 1 sLOAD ADDRESS 
1) 001133 MICPC=MICPC41 
ch) o14254 900431 MOVE !WRTEBR! IMM! <<>> 
1407 92 IF NOF LOW 
1408 ; OUTPUT BR, «SELB! TMTDAT> 
1409 ALWAYS [1 
1410 200 -ENDC 
i411 601 “IF OF LOW 
1412 914256 ALWAYS TMTAS 
iD — OOr194 MICPC=MICPC41 s 
(1) onsese «T5421 STEMS TAL CONDE <TMTAS-INITS3O O0#4> !< TMTAS-INITS?777"2> > 
1412 900 -ENDC 
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i DDC Me PROTOSS Penn son MACY11 27(1006) O7-MAR-77 16:24 PAGE le-2 PAGE: ite 
Wi. MAC D6-DEL-76 10:14 TF1-NUMBERED MSG HEADER EOM 
.SBTTL TF1-NUMBERED MSG HEADER £OM 
014260 TF1: BRUR Te IMM,2 ;E9M MASK TO BR 
001125 MICPC=MICPC+1 
014260 00040e (HOVE! WRTEBR! IMM! <2) 
014262 OUTPUT BR _— OTMTCO> ;UPOATE TMTR CONTROL REGISTER 
001136 MICPC=MICPC+ 
014262 062231 «MOVE! WROUT! BR! <SELB! OTMTCO> > 
014264 ' QUTPUT BR + senile ;OUTPUT A GARBAGE CHAR 
001137 MICPC=MICPU+ 
014264 062230 (MOVE! WROUT! BR! <SELB! TMTDAT> > 
014266 BRWRTE 1eUS IIBAl ;READ LOW ORDER FROM INGA 
001140 MICPC=MIC 
O14e266 20500 ' (MOVE! WRTEBR! BUS! <TIBAL>* 
014270 BRO TMTF1 ;IF ODD BYTE--BRANCH 
001141 MICPC=MICPC+1 
014270 «112155 < JUMP! BROCON! < TMTF 1-INIT&3000%4> ! <TMTF 1-INIT3877772>> : 
014272 STATE _TMTH 
001142 MICPC=MICPC+1 
014272 000544 «MOVE! WRTEBR! IMM! < TMTH-INIT&777/2>> 
014274 ALWAYS XEXIT 
he 001343 MICPC=MICPC+1 
Cl4e74 100451 «JUMP! ALCOND! «XEXIT-INITS3000#4)! «XEXIT-INIT8777 72> > 
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| 
| 
|SOCNEW.MaC — O6-EC-~7@ 10: TFI-NUMBERED MSG HEADER EOM | 
1424 | eH ETINE CRITICAL PATH--MODIFY WITH GREAT CARE | 
14es .SBTTL. TMTH--ROUTINE TO OUTPUT DATA CHARACTERS 
1427 014276 TTH:  §SPBR _IBUS,NPR,SPO READ NPR CONTROL 
(1) 001144 MICPC=MICPC+1 
oe 014276 123600 (MOVE! SPBRX! TBUS! NPR! SPO> 
1438 ; 001 IF NOF LOW 
1429 BR4 S$ :IF RECV NPR --PROCESS 
1430 020 -ENDC 
1431 014300 BRO Il ;IF NPR IN PROGRESS --BRANCH 
| 1) 001145 MICPC=MICPC+1 
(1) 014300 102052 < JUMP! BROCON! <I1- ~INIT$3000%4) ! ¢11-INIT8777/2)> 
| ‘ 
| 1432 019302 S$: OUTPUT IBUS,<INDATI!TNTDAT> ~~. :WRITE THE EVEN CHAR TO TMT: SILG 
(1) 00114 MICPC=MICPC+ ‘ 
(1) 014302 922010 (MOVE! WROUT! IBUS! <INDATI!TMTDAT>> « 
1433 014304 SP IBUS, IIBA1, SPO “-- READ LOW BYTE OF BA TO SP 
(1) 001147 MICPC=MICPC+1 
| (1) 014304 623100 <MOVE! SPX! IBUS! IIBA1!SPO> 
1434 914306 OUTPUT BR, <INCA!IBAL> : ;OQUTPUT INCREMENTED BA 
| “¢y) 001150 MICPC=MICPC+1 
1) 014206 O62064 <MOVE! WROUT! BR! <INCA! IBAL>> 
4 
| 4435 o14au0 SP BR, DECA, SP6 ;DECREMENT CHARACTER COUNT . 
(1) 001151 MICPC=MICPt+1 > 
1) O14310 O631bE «MOVE! SPX! BR! DECA! SP6> 
| 1436 014312 c THe ;NO OVERFLOW 
| a oo11s2—its MICPC=MICPC 
1) 014312 111155 < JUMP! CCOND! <THE -INIT&3000%4> ! <THG-INIT&777/2>> 
| 4437) 014314 SP BR, DECA, SP7 ;DECREMENT HIGH BYTE OF COUNT 
(1) 001153 MICPC=MICPt+1 a 
1) 014214 963167 . <MOVE! SPX! BR! DECA! SP7> . 
J 
1438 O14316 2 HEH1 ;BYTE COUNT ZERO * 
1) 001154 MICPC=MICPC+1 
1) 014216 115402 < JUMP! ZCOND! <HEH1-INIT&3000%4> ! <HEH1-INIT877772) > 
} 
' 1439 014320 TH: | 
1449 001 IF NOF LOW 
441 BRWRTE IBUS, TMTCON ;READ TMTR CONTROL CSR 
| 1442 BRY TH9 :IF MORE ROOM IN SILO--BRANCH 
1443 coo -ENDC 
1444 014320 TMTF1: STATE tH 
C1) 001155 MICPC=MI 
(1) 014320 900557 <HOVETURTESR! IMM? ¢THTHO-INIT8777/2 
1445 01432e ALWAYS XEXI 
(1) 001156 MICPC=MICP att 
WD) 014322 10046) TOME? AL COND! <XEXIT- -INIT$300084> ! <XEXIT-INIT8777/2>> 
, 
1446 014224 TMTHO: 


1447 001 " IF OF LOW 
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014324 
014324 
014326 
014326 


014330 
014330 
014332 
014332 
014334 
014334 
014336 
014336 
014340 
0i4340 
014342 
014342 
014344 
014344 
014346 
O1434E 
014350 
014350 
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twigs 


014352 
014354 


014354 
014356 
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001157 
123600 


001160 
102052 

ooo 
001161 
022030 


C011$2 
023100 


001171 
123600 


C01 
000 


001172 
000544 


001173 
Ob32ee2 
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MACY11 27(1006) O7-MAR-77_ 16:24 PAGE 12-4 PAGE: C144 
TMTH--ROUTINE TO OUTPUT DATA CHARACTERS 


THY: 


THE: 


TH?: 


TH3: 


TH3X: 


SPBR _IBUS, NPR, SPO :NPR BUSY 
MICPC=MICPC+i 
<MOVE! SPBRX! IBUS! NPR! SPO> 


BRO Il 
MICPC=MICPC+! 
< JUMP! BROCON! < I1-INIT&3000#4> !<11-INIT877772>> 


.ENDC 
OUTPUT IBUS, <INDAT2! TMTDAT> :0DD CHAR TO SILO 
MICPC=MICPC+1 

<MOVE ! WROUT! IBUS! < INDAT2! TMTDAT> > 


SP IBUS, IIBA1,SPO :READ LOW BYTE TO BA 
MICPC=MICPC+! 
<MOVE! SPX! IBUS! IIBAL!SPO> 


OUTPUT BR. <INCA'IBAL> 
MICPC=MICPO+1 
(MOVE ! WROUT! BR! <INCA! IBAL>> 


;OUTPUT THE INCREMENTED BA 


C HOINCH 
MICPC=MICPC+1 
<« JUMP! CCOND! <HOINCH-INIT&3000#4> ! <HOINCH-INIT877772)> > 


SP BR, DECA, SP ;DECREMENT CHARACTERCOUNT 
MICPC=MICPC+ 
TOMEI SPRIGRI ODA SP) 
C TH? ;NO OVERFLOW 
Krcecenrence1 
< JUMP! CCOND! <TH7-INIT&3000%4> ! <TH7-INIT877772) > 
S17 BR ADECA, SP? ;DECREMENT HIGH BYTE OF COUNT 
HOVE! SPX! BR! DECA!SP7> 
Z HEH ;BYTE COUNT ZERO _ 
MICPC=MICPC+1 
< JUMP! ZCOND! <HEH1-INIT&3000%4> ! <HEH1-INIT&777/2>> 
SPBR __IBUS, NPR, SPO ;READ NPR REGISTER. 
MICPC=MICPC+] 2 
<MOVE! SPBRX! IBUS! NPR! SPO> 
.IF NOF LOW 
BRO. ‘THe ;IF NPR BUSY WAIT TO GO 
-ENDC 
STATE — TMTH 
MICPC=MICPC+1 
CHOVE! MRTEBRE IMM! <THTH-INIT8777/2>> 
SP BR, SELB, SPe ;SAVE ISTATE “ 
MICPC=MICPC+1 
<MOVE! SPX! BR! SELB! SP2> 


BRWRTE IMM, 157 ;CLEAR CO AND Cl 
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12 DDCMP PROTOCOL IMPLEMENTATION  MECY11_27( 1006) O7-MAR-77_ 16:24 PAGE 12- PAGE: 
BOCNEW. MRC De-DEC~ 16s] TMTH=-ROUTINE TO OUTPUT DATA CHARACTERS 
(1) 001174 MICPC=MICPC+1 » 
(1) O14356 000557 (MOVE! WRTEBR! IMM! < 157>> 
1466 014360 . SP BR, AANDB, SPO ;CLEAR THE BITS 
(1) 001175 MICPC=MICPC+1 
(1) O14360 063260 (HOVE! SPX! BR! AANDB! SPO> 
1467 014362 BRWRTE IMM, 1 ;WRITE NPR BITS TO 88 
(1) 001176 MICPC=MICPC41 ‘“ 
(1) 14362 00401 (MOVE! WRTEBR! IMM! <1>> Pe 
\ % 
468 001 IF NOF LOW 
469 QUT BR. <AORB! ONPR> 
470 ALWAYS 11 
1471 THe: STATE TH? 
472 ALWAYS XEXIT 
1473 090 .ENDC 
1474 091 IF DF LOW 
75 014264 ALWAYS RK? 
(1) 001177 MICPC=MICPC+1 
(1) 014364 1O4EH2 < JUMP! ALCOND! <RK7-INIT&3000%4> ! <RK7-INIT8777/2>> 
7€ 900 . ENDC 
a4 “ ; FERLEERELEAEEKEND TIME CRITICAL PATHRRERAAEARARRRERA AERA LAER ELE SS 
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1482 014370 
1) 014379 
| 1483 014372 
j ‘ J 
(1) 914372 

1464 014374 

(1) 014374 
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1485 

1486 

1487 014376 
PC a 
, <1) OL4376 
Pa 
Sa 
P  t83 
ais 
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001207 
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MACY11 27(1006) 07-MAR-77 “Poy PAG GE 1 acc 
TMTI--SEND UNNUMBERED TYPE FIELD 


.SBTTL TMT 1>-SEND UNNUMBERED TYPE FIELD 
TTI: LOMA  IMM,T sADDRESS OF TYPE FIELD TO MAR 
NECPC=MICECH 
.IF TDN IMM, IMM 
<MOVE! LOMAR! IMM! <T8377>> 


IFF 
<MOVE!LOMAR! IMM! <T>> 
-ENOC 


sp MEMX, SELB, SPE COPY IT TO SPE 
¢ MICPRMICPC+! 
“MOVE! SPX! MEMX! SELB! SPE> 


Se a 
COVES WATEBR! IMM! <THTJ- ~INIT&77772>> 

ALWAYS isk 

MICPC=MICPC 

«JUMP! AL COND! <TJ1- ~INIT&3000#4> !<TIL-INIT&777/e>> 


'SBTTL TNTJ--SEND SUB-TYPE FIELD | i he) 
THTJ: COMA IMM, ST | ;ADDRESS OF SUB-TYPE FIELD TC MAR 
NECPC=MICPCH 


.IF IDN IMM, IMM 

«HOVE !LDMAR! IMM! «ST8377> 
<MOVE!LDMAR! IMM!<ST>> 
-ENDC 


STATE his 
MICPC=MICPC+1 
<HOVELURTEBR? IN! ¢THTK- ene 
TJ1: OUTPUT MEMX, SELB! TMTDAT 
MICPC=MICPC+ 
(MOVE! WROUT! MEMX! «SELB! TMTDAT> > 


ALWAYS _XEXIT 
MICPC=MICPC+1 re 
< JUMP! ALCOND! <XEXIT-INITS2O00#4> ! <XEXIT-INITS777/2>> 
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.TMTK--OUTPUT RESPONSE FIELD (UNNUMB MSG) 


TMTK: 


TMTL: 


TMTLO: 


TMTLI: 


Ele 





.SBTTL TMTK--OUTPUT RESPONSE FIELD (UNNUMB MSG) 


BRWRTE IMM, 2 :WRITE A 3 7O BR 
MICPC=MICPC#1 
CMOVETWRTEBR! IMM! <2 > 


NOP BR, SUB, SP& :IF TYPE LESS THAN 2 
MICPC=MICPE+1 


“<BR! SUB! SP6> 


TSTATE dh 

MICPC=MICPC 

COVE THRTEBR! IMM! <THTL- INIT877772>> 
MICPC=MICPC+1 
re 


C 
MICPC=MICPC+1 
«JUMP! CCOND! < TMTLO-INIT&300084> ! < TMTLO-INITS77772>> 


ALWAYS D2 
MICPC=MICPC+1 
«JUMP! ALCOND! « Tb2- INIT&3000#4> !<TO2-INIT&777 72> > 


*SETTL TMTL--UNNUMB MSG NUMBER FIELD 
TSTATE THTM 

MICPC=MIC 

SOU ETUIRTEGREINM! <TMTM= INIT87772> > 
MICPC=MICPC+1 

HOVE! SPX!BR! SELB! SP2) 


MICPC=MICP Pchi 
«MOVE! WRTEBR! IMM! <3) > 


CMP BR, SP6 :IS MESSAGE REP 
MICPC=MICPC+1 
<SUBTC! BR! SP6> 


2 THT ul s YES 

MICPC=MICPC 

CTOMP? SCOND! < TMTLI- -INIT&3000#4> !<TMTLI-INIT8777/2>> 

BRUTE IMM, 0 ;ADDRESS CONTNAT OF ZERO 
MICPC=MICP pct] 


«MOVE! WRTEBR! IMM! <O>> 
ALWAYS TMTAS 


MICPC=MICPC+1 cea 
<JUMP!ALCOND! < TMTAS-INITS3000%4 ! < THTAS-INITS777/2) > 


BRWRTE BR DECA! SP Le “WRITE @ RESPONSE 
MICPC=MICPC+ 
«MOVE! WRTEBR! BR! <DECA!SP1e2>> 


.IF NOF LOW 
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«MAC “Dev-/& 1L:14 TMTL=-UNNUMS MSG NUMBER FIELD 


OUTPUT a SELB! TMTDAT 


ALWAYS 
oco -EN 
ay LIF OF LOW’ 
ose ALWAYS | TMTAS 
1226 NICPCMICPCS! nae: 
onv42 «110421 JUMP! ALCOND! < TMTAS-INITS2000#4) ! < THTAS-INITS777/2 > 
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TMTM=--UNNUMB MSG--STATION ADDRESS 


Phe tee 


TNEOM: 


= 


-SBTTL TMTM--UNNUMB MSG--STATICN ADCRESS 
STATE TN eo 

MICPC=MICPC+1 

aa ee INITS7772> » 

ALWAYS Tre 

MICPC=MICPC+! 

<JUMP!ALCOND! <TF2-INITS3000#4) !< TFE-INITS777/2> > 


BRWRTE IMM.2 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM! <2>> 


OUTPUT BR (SELB? OTHTCO> 
MICPC=MICP 
«MOVE! WROUT! TBR! <SELB!OTHTCO>» 


Oy ohon TERA «SELB! TMTDAT> j 
<MOVE!WROUT! TBR! <SELB! TTD 


BRWRTE IMM,4 
MICPC=MICPC41 
<MOVE!WRTEBR! IMM! <4>> 


SPBR BR, AORB, SP10 : UPDAT 
MICPC=MICPC+1 
«MOVE! SPBRX! BR! AORB! SP10> 


BRWRTE BR,AAISP1O 
MICPC=MICPC+1 
(MOVE 'WRTEBR'BR! <AR'SPIO>> 


BR? 
MICPC=MICPC 
<« JUMP! BRFCON! < 1OS-INITS3CO0#4 !« 108-INITS777/2>> 


PRWRTE IMM, 376 :MASK TO 
MICPO=MICPC41 
CMOVE !WRTEBR! IMM! <376>> 
BR AANDB, SP10 sMASK TO 


SP 
MICPC=MICP 
«MOVE! SPX! BR! AANDB!SP10> 


ALWAYS TEOMe 
MICPC=MICPC+1 
‘JUMP! ALCOND! < TEOM2- INITS3000#4> !< TEOMZ-IN 


BRWRTE IMM,176 
MICPC=MICPC41 
«MOVE! WRTEBR! IMM! <176>> 


ALWAYS SS 
MICPC=MICPC+1 acti 
CJUMB!ALCOND! <S$-INITSZ000#4» !<S$-INITS777 2) » 


OUTPUT AG 


T3777 - 


;CLEAR OK TO SEND AND UNNUME PENPENCING 


sENO OF MESSAGE TC BF 


ARBAGE CHARACTER 


;SET UP LINE HAS GONE IDLE MASK 


LINE STATUS WORD 


;SHIFT STATUS LEFT 


;IF HOX SET---BRANCH TO CLEAR SK TO SEND 


TURN OFF UNNUMB PENODING 


LINE STATUS WORD 
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16: 
TIMESUT ROUTINE --SENDE REP 
~SBTTL TIMSRV--TIMEOUT ROUTINE--SENDS FEF 


"ENOBLE LSB 

: SP 18U 'S UBER, SPO ‘READ UNISUS SR SEGISTES 
MICPC=MICPC+] 

“MOVE ! SPX! TBUS!UBBR! SPC) 


ATAPCEMI GP peat’ 
<MOVE'WRIEBR! IMM!<177>> 


:RESET TIMER---SLICK MOVE 
:SINCE 7 iMER IS RESET BY WRITING 
tA_1 AND THE EXPIRATION LOCKS 
‘LIKE Me CEL 

OUT EER <AANDB! OBR> AND THE SIT ON 

MROVE THAGUTXEBR! (AANDB! OBR) : 

BRWRTE BR, SELA!SP! “READ STATUS BYTE 


MICPC=MICPC+1 
«MOVE! WRTEBR! BR! <SELAISP1>> 


BR? an :IF IN MAINT. MODE OISABLE TIMER 
MICPC=MICPC+1 
<« JUMP! BR7CON! < IDLE-INIT&3000#4> !< IDLE-INITS777 “2> > 
BR DECA, SP15 ;DECREMENT THE COUNTER 
NICPC=N CPL+ 
«MOVE! SPX! BR! DECA! SP iS> 


20 SIF ALL ONES HAS EXPIRED 

Srcpc=MIeP C+1 

TOMBE SCOND! <208-INIT$300084> ! <20$-INITS7772»> 
BRURTE, BR,SELA!SP1O READ LINE STATUS 
MICPC=MICPC+ 
(MOVE! WRTEBR! BR! <SELA!SP1C>> 
BRL nr eeuP :NUMBERED MESSAGE IN PROGRESS 
TEMP? BRICON! < TABUPD- INITS3CO0#4> ! < TABUPD-INIT8777 2) > 
BRO TABUPD |UNNUMBMSGIN PROGRESS 
MICPC=MICPC+1 
<JUMP! BACON! <TABLIPD-INITS3CO0#4> ! < TABUPD-INITS777/2>> 
BRSH HET 

MICPC=M 


CPC+1 
NS ee SRT WRTEBR! SELE> 
BRY IE ;START MODE 
MICPC=MICPC+1 
< JUMP! BRYCON! < IDLE-INIT&3C008#4>!< IOLE-INITS777-2>> 
ALWAYS SNDACK :ELSE SEND ACK 
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1006) O7-MAR-77 16:24 PAGE l2-1: 


SOR -oTINEDUT ROUTINE --SENDE “REP 


TIME: 
208: 


TIMEe: 


MICPC=MICPC+1 
<« JUMP! ALCOND! « SNOACK-INITS3000#4> ! <SNDACK-INITS777 72) > 


BRWRTE IMM,2 
MICPC=MICPC+! 
MOVE !WRTEBR! IMM! <2) > 


SP BR, SELB, SP1S sRESET THE TIMES TICK COUNT 
MICPC=MICPC+1 

«MOVE! SPX!BRISELB!SP1E> 

BRURTE DP, <SELA!SF1O> “READ LINE STATUS WORD 


MICPCSMICPC+1 
<MOVE 'WRTEBR! DP! <SELA'SP1O>> 


BRSHFT 
MICPC=MICPC+1 

«MOVE! SHF TBR! tWRTEBR! SELB» 

BPY Si :IF IN START MODE--SRANCH 

MICPC=MICPC+1 

< JUMP! BRYCON! <BS1-INITS3000#4> !<8S1-INIT$777/2>> 

BRWRTE BR,DECA!SP12 GET LAST NUMBER SENT 

MICPC=MICPC+1 

(MOVE !WRTEBR! BR! <DECA!SP12>> 

CMP BR, SP17 :COMPARE TO LAST ACKED 

MICPC=MICPO41 

<SUBTC!BRISP17> 

2 10$ sIF EG --SEND ACK 

MICPC=MICPC+1 

<JUMP!ZCOND! <10$-INITS3000#4> !< 1LOG-INITS$?777/2>> 

LOMA =sIMM. T sLOAD ADDRESS OF TYPE FIELD 

MICPC sNICPCH 

.IF IDN IMM, IMM 

<HOVE!LOMAR! IMM! <T8377> 

<MOVE!LDMAR! IMM! <T>> 

.ENDC 


MEMINC a f ;LORD REP TYPE 
MICPC=MICP 

"HOVE! IRMEM® INCMAR! IM! « 32> 

MEMINC IMM, 300 ;ZERO THE SUS-TYPE 
MICPC=MICPC41 

“MOVE ! WRMEM! TNCMAR! IMM! <300> > ? 


LOMA IMM, REPCS ;CUMULATIVE REPS RECO 


NICPC=MICPC#1 
IF IDN IMM, IMM 
<MOVE !LOMAR! IMM! <REPCS8377> > 
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MACY1L] 27(1006) QO7-MAR-77 16:24 PAGE i2-lz2 
TIMSRV--TIMEOQUT ROUTINE--SENDS SEP 


ad 


. LFF 
«MOVE! LOMAR! IMM! <REPCS 
- ENOC 


Se MEMX, SELB, SPO -COPY IT TG SPO 
MICPC=MICPC+! 
“MOVE! SPX! MEMX! SELB! SPO> 


MEM BBA NCA!SPO INCREMENT IT 

MROVE THAME MB 1BR! INCA!SPO> > 

LOMA IMM. REPST :ADDRESS DYNAMIC REP SOLNTER 
HicPcemICecs 


IF ION IMM, Ine . 
(MOVE? LOMAR! IMI! «REPST837 ») 
(MOVE! LDMAR! IMM! <REPST> > 
ENDC 


BRWRTE MEMX, SELB ;COPY IT TO THE BR 
MICPC=MICPC+ 
‘MOVE! WRTEBR! MEMX! <SELB> > 


BSHF TB 
MICPC=MICPC+1 
(HOVE! SHETBR! SELB! BR> 


MEM BR, SELB 
MICPC=MICPC+1 
(MOVE! WRMEM! BR! <SELB>> 


BRO RTHRES 
MICPC=MICPC+1 
«JUMP! BROCON! <RTHRES- ~INIT&S3C000#4> ! <RTHRES-INITS777-2>> 


BRWRTE IMM,201 ;MASK FOR OK TO SEND 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM! <201>> 


SP BR, AORB, SP10 :OR IT IN 
MICPC=MICPC+1 
<MOVE! SPX! BR! AORB! SP1O> 


ALWAYS IDLE 


MICPC=MICPC+1 
TOMB TALCOND! < IDLE- ~INITS3000%4> !<IDLE-INITS777/2>> 


.DSABLE LSB 


Kle 





DMS13 DOCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77_ 16:24 PAGE 12-13 
IECCNEW.MAC © O6-DEC-7e 10:14 TENSRV-STIMEOLT ROUTINE --SENOS REP 
| 13581 034806 TEOM:  BRWRTE TBUS UBER 
; CD 061310 MICPC=MICPC 
| 32) GlHe0e Te0be0 (MOVE TWRTEBR! IBUS! (UBBR>> 
{ (1) 
| 1582 oO14610 BRO NXMERR ;NON-EXISTANT MEMORY 
Wag ie 00131: MICPC=MICPC+! 
| $$) O1Me10 116063 < JUMP! BROCON! «NXMERR-INIT$3000#4> ! “NXMERR-INIT$777/2> > 
| 1582 o14e12 BRWRTE IMM,2 :E0M TO BR 
| 001312 MICPC=MICPC41 
of) olde 000402 CHOVETWRTEBR! IMM! <2> 
1584 14614 OUTPUT BR, <SELB! OTMTCO> WRITE TMTR CONTROL 
awit 001313 MICPC=MICPC+ 
(1) O1M614 D62231 OMOVE! WROUT! BR! <SELB!OTHTCO>> 
| 1585 o14ei6 OUTPUT BR, <SELB! TMTDAT> ;WRITE GARBAGE DATA 
i 4ae ee MICPC=M MICPC+1 
| (1) CLMb16 CHOVE? ROUT! BR! <SELB! THTDAT> 
| 1566 c14e20 BRURTE BR, SELA! SPI :CKECK FOR BOOT MODE 
wm MICPC=MICP 
— (E2 o1Hee0 MOVE TURTEBR!BR! (SELA!SP1> > 
| 1567 142d BR? BoE ;---IF SET IS MAINT MSG 
' \a) - 
| tb o1seze JUMP! BRECON! <BTEOM-INITS3000%4> ! <BTEOM-INIT8777/2)> 
| 1588 14624 sp BR, INCA, SP12 : INCREMENT THE MESSAGE NUMBER 
1 (1) MICPC=MICPC+1 
(1) 14624 (MOVE! SPX!BR! INCA! SP 12> 
(}} 
1589 014626 TEOM1: LDMA —_IMM,LTC ;ADDRESS LAST TMT LINK 
(1) MICPC= sICPCH 
(1) IF ION IMM, IMM 
(1) Dl4e26 «MOVE !L LOMAR! IMM! <LTC8377>> 
(1) , (MOVE !LDMAR! IMM! <LTC> > 
se ooc! | -ENDC 
1850 014620 LDMA _MEMX, SELB 
(1) 901321 NECPCSMICPC+ +4 
(1) 90: IF IDN MEMX, IMM 
at HOVE! LOMAR! LPN! <SELB8377> > 
(1) O14620 os0220 (MOVE! LDMAR! MEMX! <SELS> > 
se 000 -ENDC 
1851 014632 BRWRTE MEMX, SELB 
(1) ~ 001322 MICPC=MICPC+1 
(1) 01632 040620 “MOVE! WRTEDR! MEMX! «SELB: > 
,a) 
1592 O14634 BRO TEOM2 
(1) 001323 MICPC=MICPC+1 
(1) 014694 112334 JUMP! BROCON! <TEOM2-INITS3O00#4> # < TEOMZ-INIT8777."2> > 





Lie 
-PYri2 DOSMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAGE 12-14 PAGE: O1S4 
VECENEW.MAC ©. 6-DEC-76 10:14 TIMSRV--TIMEOUT ROUTINE--SENDS REP 
18S2 014836 TEOM3: BRWRTE IMM, 37S- :TURN OFF MESSAGE PENDING 
C1) 991324 MICPC=MICPC41 
D 914636 000775 (MOVE! WRTEBR! IMM! <375>> 
1894 O14640 SPBR _BR, AANDB, SP10 ; 
(1) 001325 MICPC=MICPC+! 
1) O14640 063679 HOVE! SPBRX! GR! AANDB! SP 10> 
1595 014642 BRO TEone /IF UNNUMB PENDING--GO AWAY 
(1) 001326 © MICPC=MICPC+1 
ch) Ol4642 112334 «JUMP! BROCON! < TEOM2-INIT&2000#4> ! < TEOM2-INIT8777/2> > 
1536 \SBTTL SNDACK--ROUTINE TO SEND AN ACK 
i597 914644 SNDACK: LDMA MM. T 
(1) 001327 NICPC=MICHC¥I 
(1) o0) IF IDN IMM, IMM 
(1) O1Ne44 010153 HOVE! LOMAR! IMM! <T8377> 
(3) <MOVE!LDMAR! IMM! <T>> 
(1) 9c .ENDC 
1598 014646 MEMINC IMM, 1 
(1) 901330 MICPC=MICP PC+1 
2) C1l¥e4e CLE4Di «MOVE! WRMEM! INCMAR! IMM! <1>> 
{]) 
1599 14659 BRWRTE IMM,S 
(1) 901231 MICPC=MICPC41 
oe o14eso 90540 (MOVE! URTEBR! IMM! <=>» 
16C0 oucee sha: MEMINC, IMM, 300 
(1) 001322 MICPC=MICPC+ 
dD) O14eS2 016706 SHOVE? IRMEM? INCMAR! IMM! <309>> 
J 
1601 O146s4 SA3: SP BR, AORB, SP10 
(1) 001332 MICPC=MICPC+1 
h) p14es4 063310 © (MOVE! SPX! BR! AORB! SP1O> 
102 . 
i603 O14656 TEOMe: STATE THTA 
(1) 001334 MICPC=MICPC 
(1) O14856 000403 CHOVETHRTEGR! TH! THTA- INIT8777/2>> 
1604 614660 ALWAYS XEXIT 
(1) 001335 MICPC=MICPC+1 
1) DI4660 19045) < JUMP! ALCOND! <XEXIT-INITS&3000%#4> ! <XEXIT-INIT38777/2> > 
1605 oO14662 FUDGE: BRWRTE IBUS,NPR sREAD NPR CONTROL 
(13 001236 MICPC=MICPC+1 
1) Oi4s62 120600 MOVE WRTEBR! IBUS? <NPR> > 
1606 O14664 BR 0 IDLE ;IF NPR GOING---LEAVE 
(1) 001337 MICPC=MICPC41 
(1) 014664 102045 CTUMP! BROCON! < IDLE- -INIT83000#4> ! <IDLE-INIT8777 2) > 
1607 O1466E BRWRTE BRILDMAR,SELA!SP4 sLOAD THE MAR 
(1) 001340 MICPC=MICPC+1 
(1) Ol4666 O70604 <MOVE ! WRTEBR! BR! LDMAR! <SELA!SPY> > 
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PMc12 DOCMP PROTOCOL {NPL EMENTAT ION MACY11 27(1006) O7-MAR-77 16:24 PAGE 12-15 PAGE: S1Ss 
BDCNEW.MAS ©. OB-DEC-76 10:1 SNDACK--ROUTINE TO SEND AN ACK 
{(]) 
1608 014670 BR? S2 sIF SET - READ BACK ALL 2C0 
(1) 00134: MICPC=MICPC+1 
(1) 014670 103505 STOMP! BRICON! (BS2- INIT83000%4> ! <BS2-INIT3777/2>> 
1609 014672 MEMINC IBUS, INDAT1 SOTHERWISE RESTORE TWO BYTES 
(1) 00134 MICPC=MICPC+1 . 
(1) 014672 936400 «MOVE! WRMEM! INCMAR! IBUS! <INDAT1>> 
1610 014674 MEMINC IBUS, INDAT2 Wr 
(1) 001343 MICPC=MICPC+h 
aD) 014674 036420 (MOVE ! WRMEM! INCMAR! IBUS! < INDAT2> > 
1611 O14876 BRWRTE IMM,2 : UPDATE---UNIBUS ADDRESS 
| (2) 001344 MICPC=MICPC#H1 
d) 014676 ocd4o2 «MOVE! WRTEBR! IMM! <2>> 
1é12 014700 SP BR, ADD, SPY sUPDATE NPR COUNTER 
(1) 001345 MICPC=MICPC+1 
() 014700 Oo€3004 (MOVE! SPX! BR! ADD! SP4> Je 
1613 014702 SP IBUS, IIBAL,SPO ;UPDATE ADDRESS LOW 
(1) 091346 MICPC=MICPC+ 
ct) 014702 0623190 <MOVE ! SPX! IBUS! IIBAL!SPO> 
| 614 014704 OUTPUT BR,ADD! IBA 
| “bD 001347 MICPC=MICPC+1 
(1) 014704 62004 (MOVE ! WROUT! BR! <ADD! IBAL>> 
| {] 
' {615 014706 SP IBUS, IIBA2, SPO ;READ HIGH ADDRESS 
| cD 001350 MICPC=MICPC+! 
| (1) 014708 023120 <MOVE ! SPX! IBUS! IIBA2!SPO> 
| 4616 O14710 OUTPUT BR,AC!IBAC UPDATE HIGH 
Pas i 001351 MICPC=MICPC+1 
| (1) 014710 O62105 <MOVE ! WROUT! BR!<AC!IBAZ> > 
1617 O14712 C RESEXT IF CARRY---UPDATE MXT 
(1) 901352 MICPC=MICPC+1 
ch) 014712 105367 TT EMP!CCOND! <RESEXT-INIT&3000%4> ! (RESEXT- -INIT8777/2>> 
1618 614714 RES1: SP IBUS, NPR, SPO ;READ NPR REGISTER 
(1) 001353 MICPC=MICPC+1 
1) 014714 123200 «MOVE! SPX! TBUS! NPR!SPO> 
| 1619 O14716 ALWAYS THX, ;GO DO ANOTHER NPR 
| UD 001354 MICPC=MICPC 
(1) 014716 110574 STUMP? AL COND! < TH3X- ~INIT&3000%4> ! <TH3X-INIT8777/2)>) 
1620 014720 BTEOM: BRWRTE IMM,374 sMASK FOR CLEAR MSG PENDING 
(1) 001355 MICPC=MICPC+1 
(1) 014720 000774 (MOVE! WRTEBR! IMM! <374> > 
1621 014722 cp BR, AANDB, SP10 ;TURN THEM OFF IN LINE STATUS WORD 
(1) 001356 MICPC=MICPC+1 
(1) 014722 063270 CHOVE! SPX! BRI AANDB!SP1O> 
& 
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| 
ase DDCMP PROTOCOL [MPLEMENTAT ION MACY11 27(1006) O7-MAR-77 16:24 PAGE 12-16 PAGE: 
| BOSNEW. MGC 0: OB-DES-76 10: SNOACK--ROUTINE TO SEND AN ACK 
(]) 
| 1632 014724 SP ' BR, SELB, SP123 sSTORE UNRECOGNIZABLE VALLE INTO SP12 
(1) 0013¢7 MICPC=MICPC+1 
| (1) 914724 063223 (MOVE! SPX! BR! SELB! SP13> 
1623 SO “RH2" WILL EXIT BACK TO IDLE LOOP 
| 1824 014726 LOMA _IMM,STC !ADDRESS START OF TMT CHAIN 
(1) 001360 MICPC=MICPC41 
} ch) O01 IF IDN IMM, Imm 
it) 014726 010070 <MOVE!LOMAR! THM! <STC8377> 
{ . 
(1) <MOVE!LDMAR! IMM! <STC>> 
1) 0c ENDC 
| 1625 014730 MEMX, SELB, SPO :COPY LINK ADDRESS 
(1) 001361 RICPC=M 1cPc+h 
(1) 014730 043220 ’ (MOVE! SPX! MEMX! SELB! SPO> 
1626 014732 | TSTATE: NUNSYN sCHANGE XMIT STATE TO LINE IS IDLE 
(1) 001362 MICPC=MICPC+1 
(1) 014732 000431 <MOVE !WRTEBR! IMM! <NUMSYN-INIT&8777/2>> 
tT) 014734 Beases MSUET SEX? BRESELB! SP2> 
4 1627 014736 x ALWAYS TOON2 :POST A DONE 
: (1) 001364 MICPC=MICPC+1 
ih) 014736 114534 TOME? AL COND! < TDON2-INITS30U0%4> ! <TDON2-INIT8777/2>> 
1628 014740 RLY: RSTATE RCV 
(1) 001365 MICPC=MICPC#1 
/ €1} o1474O0 900715 (MOVE !WRTEBR! IMM! <RCVL-INIT8777/2>> 
! (1) OL¥742 ppases MEO UET SEX? BR SELB! SP3> 
| 1629 914744 SP 7 1BuS NPR, SPO :READ NPR CONTROL REGISTER 
Fohe ad 001367 MICPC=MICPC+ 
) 914744 123200 : SS VET SPX? TRUS! NPR! SPO> 
iii 
| 1630 001 IF NOF LOW aE 
1631 BRWRTE IMM, 200 ;MASK FOR CO 
1632 OUT BR. <AORB! ONPR> _ISET CO 
1633 ALWAYS RK2 
1634 900 ENDC 
i 163s 001 aie OF LOW 
| 1636 O14746 : BRWRTE IMM, 221 
|  h) 001370 MICPC=MICPC41 
1) 01474 O00621 : <MOVE!' WRTEBR! IMM! <221>> 
1637 014750 ALWAYS _RK7 
PM 4 Sahel 001371 MICPC=MICPC+1 
1) 014750 104643 NTOME? AL CONDE (RK7-INITS3000%4> ! <RK?-INITS777/2>> 
1638 000 . ENDC 
/ 1639 014752 HOINCH: SP IBUS , 11BA2, SPO 
(1) 00137e MICPC=MICPC+1 
dh) 014752 022120 (MOVE! SPX! IBUS! IIBA2!SPO> 
1640 014754 OUTPUT BR, INCA! IBA2 ;OUTPLT INCREMENTED BA 
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MaCY11 27(1006) _O7-MAR-77 46:24 PAGE 117 


MPLEMENTRT ION 
0:14 SNDACK--ROUTINE TO SEND AN ACK 


B13 


MICPC=MICPC+1 
«MOVE! WROUT! BR! < INCA! IBA2> > 





-) ; INCREMENT BYTEW COUNT 
NICPC=MIC CPC+1 
JUMP! COND! “S$-INITB3000%4> ! (S$-INIT8777/2> 
ALWAYS TH8 
MICPC=MICPC+1 


«JUMP! ALCOND! <THE ~INIT&3C000%4> ! < THB-INIT8777 72> > 


- INCREMENT MXT BITS 
IBUS , NPR, SPO ;READ NPR REG IWTH CURRENT MXT BITS 
MICPC=MICPC+ 1 


«MOVE! SPX! IBUS! NPR! SPO> 


BRWRTE my ; ;WRITE BIT TO ADD 
MICPC=MICP 
COVE TURTEBR! IMM! <4) > 


OUT BR, <ADD! ONPR> : TURN ON PROPER MXT SITS 
MICPC=MICPC+1 
SHOVE TWROUTX! BR! (ADD! ONPR> > 


ALWAYS THB 
MICPC=MICPC+1 
«JUMP! ALCOND! <THE- -INIT&3000#4> ! <THE ~INIT8777/2>> 


éTaTe TEOM 
MICPC=MICPC+1 
MHOVE!WRTEBR! IMM! (TEOM- -INIT877772>> 
ALWAYS XEXIT 
MICPC=MICPC+1 " 
<JUMP! ALGOND! <XEXIT-INIT&3COO#4> # <XEXIT-INIT8777/2)> 
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1 DDCMP PROTOCOL ae? hilt MACY11 27(1006) 97-MAR-77 ie: 24 PAGE 12-18 PAGE: C0158 
ci MAC O6- bec-76 1 10:14 REP HANDLER 


1653 .SBTTL REP HANDLER 
01477 REP: LOMA IMM, REPCR :LOAD MAR ADDRESS WITH POINTER TO REPS RECS 
001404 MICPC=MICPCH1 
901 IF IDN IMM. IMM 
014776 O10016 (HOVE! LOMAR! IMM! <REPCR8377> 
<MOVE! LDMAR! IMM! <REPCR> > 
000 .ENDC 
015000 sp MEMX SELB, SPO ;READ NUMBER OF REPS RECD 
oo140S MICPC=MICPC+ 
G1soco 043220 DEC SELB!SPOD 
015002 MEM DP, < INCA! SPO> s INCREMNT REPS RECD 
001406 MICPC=MICPC+1 
015002 062460 <MOVE! WRMEM! DP! <INCA!SPO> ° 
015004 LOMA ;LOAD ADDRESS OF TYPE FIELD 
001407 RECPCSHICECS 
015004 o10482 Hove! LDmBR! In! «18377>> 
<MOVE!LDMAR! IMM! <T>> 
990 ENDC 
015006 MEMINC IMM,2 ; LOAD NAK TYPE 
901410 MICPC=MICPC41 
915006 916402 <MOVE! WRMEM! INCMAR! IMM! <2>> 
015010 MEMINC iM, 303 ;LOAD REP RESPONSE SUB-TYPE 
061411 MICPC=MICPC+1 
015010 016703 <MOVE! WRMEM! INCMAR! IMM! <393>> 
o1so12 ALWAYS SNAK ;SEND AN UNNUMB MSG 
o01412 MICPC=MICPC+1 
o1s012 114712 TUNE? AL COND! SNAK- INIT83000#4> ! <SNAK-INIT&777/2>> 
*SBTTL START HANDLER 
015014 START: BRURTE OP, <SELA'SP10> :READ LINE STATUS WORD 
901413 MICPC=MICPC+1 
615014 O60610 (MOVE! WRTEBR! DP! <SELA!SP10>> | 
C1SO16 BRSHFT :GET START MODE BIT IN TESTABLE POSITION 
001414 MICPC=MICPC+1 
015016 o0i¢e0 MLSE? SHE TBR! WRTEBR! SELB> 
015020 BRY 10$ -IF IN START MODE SET STACK 
901415 MICPC=MICPC+1 
o1sd20 117021 < JUMP! BRICON! < 10S- -INIT83000#4> ! < 10$-INIT8777/2>> 
sELSE SET UP START ERROR 
015022 LOMA IMM, <<RTHRS+3>> 
001416 MICPC=MICPC+1 
IF IDN IMM, IMM 
o1soz2 010177 <MOVE !LDMAR! IMM! < <RTHRS+3>8377>> 
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* CMP PROTOCOL a tel ON MACY11 ete) O7-MAR-77 16:24 PAGE 12-19 


[ote D&-DEC-76 10:14 START HAND 
} FF 
} (MOVE! LDMAR! IMM! < <RTHRS+3> >> 
ooo ENDC 
8 015024 BRWRTE IMM, 200 
} 001417 MICPC=MICPC+! 
015024 900600 «MOVE! WRTEBR! IMM! <200> > 
3 015026 ALWAYS RCEXY 
j 001420 MICPC=MICPC+1 
) O1S02 114525 < JUMP! ALCOND! <RCEXY-INIT&3000"4> ! <RCEXY-INIT877772> > 
0 015030 10%: LOMA :SET UP ADDRESS OF TYPE FIELD 
} 001421 nicPcattcect] 
} 051 N IMM, IMM 
) 915030 910152 Hove! Conan! Inf! 18277>> 
} <MOVE!LDMAR! IMM! <T>> 
900 ENDC 
i 015032 MEMINC IMM, 7 sWRITE STACK TYPE 
} 001422 MICPC=MICPC41 
} 015032 O16407 <MOVE !WRMEM! INCMAR! IMM! <7>> 
J 
2 915034 BRWRTE IMM, 11 ;SET START RECD AND UNNUMB PENDING 
} 001422 MICPC=MICPC41 
015034 900411 «MOVE! WRTEBR! IMM! <11>> 
3 015036 ALWAYS SAe ;SEND THE UNNUMBERED MESSAGE 
} 901424 MICPC=MICPC+1 
) O15036 110732 < JUMP! ALCOND! <SA2-INITS83000%4> ! <SA2-INIT87772>> 
3 P 
4 ; 

"SBTTL STACK HANDLER 

& oO1so49 STACK: BRWRTE IMM. 327 :MASK TO CLEAR START MODE 
) 001425 MICPC=MICPC+1 
} g1so¥o 990787 CHOVE!WRTEBR! IMM! <327>> “s 
J 
7 o1so42 SP BR, AANDB, SPi0 :CLEAR START MODE 
} 001426 MICPC=MICPC+1 
) O1s042 063270 <MOVE ! SPX! BR! AANDB! SP10> 
8 o1so44 ALWAYS TINE1 ;RESET TIMER AND IDLE +7 
} 001427 MICPC=MICPC+1 
) O1SO44 110662 “JUMP! ALCOND! <TIME1-INITS2000%4> !<TIMEL-INIT&777/2>> 


+ b-+b N) bb mike nate ater coe NJ pb J) bs J 


a ne eee eA OTE LT ee 
| 
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OMSL: DDCMP PROTOCOL IMPLEMENTATION MACYL1 27(1006) O7-MAR-77 16:24 PAGE 12-20 PAGE: 0160 
SOCNEW.MNAC = O6-DEC-76 15:14 STACK HANDLER : 
1680 C1SO46 ICBA22: SP 1BUS, 1OBA2, SPO -REACTHEKIGH ORDERSITS OF BG TO SPC 
1) 901430 MICPC=MIC 
) o1so4e §23165 UMOVE! SPX! TBUS! 1OBAZ! SPO) 
1681 15050 QUTPU DP,<INCALOBR2> OUTPUT THE INCREMENTED COUNT 
(1) 00143! MICPC=MICPE+! 
ae 015050 062067 CMOVE! WROUT! DP! < INCA! OBAZ>> 
1682 015052 ¢ S$ IF CARRY SET INCREMENT THE MXTBITS 
1) 001432 MICPC=MICPC+1 = 
i) o1s0s2 115034 JUMP! CCOND! <SS-INITS300084) ! <S$-INIT8777/2> 
1683 915054 ALWAYS RK9 
(1) 001423 MICPC=MICPC+1 
1} O1SOS4 104860 JUMP! AUCOND! <RKO-INITB3000%4> # <RK3-INITS777/2>> 
1624 , 
tess o1sose S$: ep IBUS, UBBR, SPO 
(1) 001434 MISPC=MICPC+ 
(1) O1sosé 123220 (MOVE ! SPX! TBUS! UBBR! SPO) 
1886 oO1s080 BRWRTE IMM.4 
(1) 901435 MICPC=MICPC41 
cH) 015060 90404 (MOVE! WRTEBR! IMM! <4) > 
1687 o150b2 OUT BR. <ADD! OBR> 
(1) 901436 MICPC=MICPC+1 
(1) ousos2 O6iol1 (MOVE! WROUTX! BR! «ADD! OBR> > 
ig68 O1S5064 ALWAYS RK 
(1) 001437 MICPC=MICPC+1 
Dp 015064 104660 JUMP! A SOND! <RKQ-INITS3009#4> # <RK9- INIT8?77/2>> 
A 
1685 O1S066 FLUSHI: SP IMM, 200, SPO “FLUSH THE REC\R 
Ch) 051440 MICPC=MICPC41 
1) 015066 903200 «MOVE! SPX! IMM! 200! SPO> 
1699 915070 OUTPUT BR. <SELA!ORCVCO> 
(1) 901441 MICPC=MICPC+1 
i) o1s070 O62212 (MOVE ! ROUT! BR! <SELA!ORCVCO>> 
16381 615072 ALWAYS CGl 
(1) 001442 MICPC=MICPC+1 os 
(i) o1so7e 104675 . MMB IAL COND! <CG1-INITS3000#4> ! <CGI-INITS777/2>> 
1692 915074 NAK: LOMA —_IMM.STC : :ADDRESS START OF TMT CHAIN 
(1) 001443 MICPC=MICPC41 
(1) 901 JTF TON IMM, IMM \ 
QD) 015974 910070 <MOVELDMAR! IMM! <STC8377> > 
(1) ‘MOVE !LDMAR! IMM! <STC>> 
ot ooo -ENDC 
1682 915076 sp MEMX! INCMAR, SELB, SPO COPY IT TO SPO 
C1) 901444 MICPC=MICPC+1 
(1) giso7e OS72e20 <MOVE ! SPX! MEMX! INCMAR! SELB!SPO> 
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' woV NEW. Mme 


015124 
015124 
015126 
015126 
015130 
015130 
CiS132 


oo14Hs 
De2e00 


002446 
C6C477 


091447 
063232 


901453 
n 


110720 


001454 
900415 


001455 
123220 


001456 
063260 


001457 
O00&90 


001460 
061311 


001461 
123000 


O014€2 


Flo 


MEM BR, SELA!SEO 
MICPC=MICPC+1 
MOVE! WRMEM! BR! <SELAISPO: » 


BRWRTE BR, INCA!SP17 
MICPC=MICPC+1 
(MOVE! WRTEBR!BR! <INCAISP17>> 


sp BR, SEL8,SPi2 
MICPC=MICPC+1 
(MOVE! SPX!BR!SELB!SP12> 


BRWRTE IMME 
MICPC=MICPC41 
<MOVE!'WRTEBR! IMM! <6>> 
SP BR, AORB, SP1C 
MICPC=MICPC+ +1 

«MOVE! SPX! BR! AORB! SP10> 
SP BR, SELB, SP1S 
MICPC=MICOC+1 

<MOVE! SPX! BR!SEL!SP1S: 


ALWAYS TEOM1 
MICPC=MICPC+1 


006) O7-MAR-77 16:24 P&G 
ER 


;COPY START CF CHAIN 


;GETLASTMESSAGE ACKED 


;COPY TO CURRENT NUMBER 


;WRITE NUMBERED MSG PENDING 


; AND LINE HAS SONE IDLE 
:SET IT IN LINE STATUS WORD 


(JUMP! ALCOND! <TEOM.- ~INIT&S3000#4> ! < TEOML-INIT8777 72> > 


BRWRTE IMM,15 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM!<15>> 


sp 1BUS, UBBR, SPO 
MICPC=MICPC+1 
<MOVE! SPX! IBUS! UBBR! SPO> 


SP BR, AANDB, SPO 
MICPC=MICPC+1 
<MOVE ! SPX! BR! AANDB! SPO> 


BRWRTE IMM, 200 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM! <200>> 


OUT BR, AORB! OBR 
MICPC=MICPt+1 
(MOVE! WROUTX! BR! <AORB! OBR> » 


SP IBUS, INCON, SPC 
MICPC=MICPC+! 
<MOVE ! SPX! TBUS! INCON! SPO> 


ALWAYS NIOLEY 
MICPC=MICPC+1 


;MASK FOR 


;READ BR 


;MASK OFF 


;MASkK FOR 


; INTERRUPT 


TURN OFF ALL BUT EXT MEM BITS 


CONTROL REGISTER 


VECTOR TO Xo4% 


INTERRUPT 


;RESTORE INPUT CONTROLCSR 


+ NXM 


its 


T3300084> !  NIDLES=INITE777 2) 
JUMPS ALCOND! <NIDLES<INIT $3 JuwlF . OLE atte 


H13 | 


eM s3 SOCME PROTICOL ZMPLEMENTAT ION MACY11] 27(1006) O7-MAR-77 16:24 PAGE le-2s PROSE: 5183 
SOONER. MES Je-OEL-"6 ivsi4 NXMERR ---NON bxr8tant MEMORY HBNOLE® 


| 
! 
-SBTTL NXMERR =--NON EXISTANT MEMORY. HGLiCLES 
COMA IMM, <<RTHRS+2) 


1718 925134 NXMERR: sADORESS ERROR LINE 
(1) o1se2 MICPCaMICeCH 
1) alk IF TON IMM Ie z 
(I) 018134 c1ol?? “HOVE TLOMAR! IMM! < (RTHRS+2°8377>> 
if} “MOVE! LOMAR! IMM! < cRTHRS+2> >» 
1) p0c -ENDG 
1713 915136 MEMINC IMM, 1 
(1) 001464 MICPC=MICPC41 
C1} 075136 916451 MOVE! WRNEN? TNCMAR! IMM! I» 
£3) 
i714 915140 MEM IMM, 0 -NXM ERROR BIT 
(1) O014S5 MICPC=MICPC41 
(2) 018140 Ooe40 MOVE! WRMEM! IMM! <O>> 
,ae 
1715 015142 Sp MEN SELB, SP12 :CLEAR STATUS 
1) 0 46B MICPC=MICP 
1) onsi4e 58323¢ MOVE! SPX! SEMK!SELS!SPI0) 
i7ie 1144 ALWAYS _RCEXX 
} Sm o01467 MICPCSMICPC +1 
i) gigi TTSE2° < SUMP! ALCOND! « RCEXX-INITS2CO0#4* !  RCEXX-INITS?777- 2 
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boos 


Ils 
ed 
). Q7-MAR-77 16:24 PAGE le-24 PGE : 
ETOUHECK SELECT is QSYNC AND DIDOLE LINE STATUS WCED 


” 
. SBTTL ee hae hn oe ee SELECT Le s AND CICOLE LINE STATUS WORE 
;USES SPS. ALWAYS CALLED BY FIRST INSTR IN A RSTATE 


a. 
N 


: $PBR ~ TBus Reveat SBE -READCHARACTERINTS SPS GND THE =e 
MICPC=MICPC+ 
(MOVE! SPBRX! IBUS!RCVDAT!SES) Y 
BR? 1S$ ;SELECT SET?--BRGNCH 
MICPC=MISPC+1 

<JUMP!BRCON! < 1S$-INITS200084 !< LSS-INIT38777 72) > 
BRWRTE BR,AA:SPS :SHIFTBR LEFT 
MICPC=MICPC+1 
MOVE !WRTEBR!BR! <GAISPS : 
BR? 20$ INAL SET? 
MICPC=MICPC+1 
<JUMP! BAS CONE «208- -INIT&3000%4> ! <20$-INIT8777'2>> 
BRWRTE IMM,77 “MASK TO BR 
MICPC=MICPC41 
UMOVETURTEGRE IMM! <7) > 
SPBR BR AANDB, SPS “TURN OFF SELECTANDFINAL 
MICPC= 


MI 
(MOVE! SPBRX! BR! AANDB! SPS > 


-ALWAY BR, INCA,SP3!PAGE1 
MICPC=MICPU+1 
< JUMP! ALCOND! BR! INCA! SP3!PAGE!> 


BRWRTE IMM,200 -SET OK TO SEND 
MICPC=MICPC41 
(MOVE !WRTEBR! IMM! <200> > 


SP BR, AORB, SP1C ;IN LINE STATUS WORD 
MICPC=MICPC+1 
«MOVE! SPX! BR!AORE! SP10> 


ALWAYS S$ 
MICPC=MICPC 
CTUMP?ALCOND! <S$-INIT&3000%4> ! <SS- -INITS&777/2>> 


BRWRTE IMM,20 ; SETCLEARACTIVE 
MICPC=MICPC+1 

CMOVE! WRTEBRE IMM! 20; > 

SP BR -* te SP10 ;IN LINE STATUS WORD 
MICPC=MICP , ' 
«MOVE! SPX! BR! TAORB!SP 10> 

ALWAYS 10% 


MICPC=MICPC+1 
< JUMP! ALCOND! < 108-INITS30C084> '< LOS-INITS?777/2>> 
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IMPLEMENTATION 
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001517 
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J13 
M@Q@l! 27(1006) O7-MAR-77 16:24 PAGE 12-2 PaGE: cits 
SELQSY--ROUTINETOCHECK SELECT AND QSYNC Aric “FIDDLE LINE STATUS WORD 
{FUGITIVE RECEIVE ROUTINES---DON'T FIT IN PAGE 
R41:  BRWRTE IBUS, IOBAL -REAC LOW BYTE OF IN 2A 
MICPC=MICPC+ 
(MOVE! WRTEBR! IBUS! <IOBAL» > 
BRO 1RE¥900 sIF SET IS SDD TRANSSER 
MICPC=MICPC+1 « 
EME TBROCONE <RCVODD-INITS 200084: I ROVOOD-INIT&777 2: - 
.IF NDF LOW ‘ ne 
BRWRTE IBUS,RCVCON :15_ THE RECEIVER READY’ 
BRY RCVKED “YES--G6 PROCESS 
“ENDC 
STATE RCVKEO 
MICPC=MICPC+1 
= HOVE TWATEBR! IMM! <RCVKEO=INIT3777/2>> 
~ ALWAYS REXIT 
MICPC=MICPC+1 
< JUMP! ALEOND! <REXIT-INITS3000%4) ! <REXIT-INIT$777/2> > 
&cveno: STATE RCVKOL. 
MiCPC=MICPC+L 
(MOVE! WRTEBR! IMM! <ROVKO1- ~INITS777/2)) 
ALWAYS REXIT 
MICPC=MICPC+1 - 
(JUMP! ALCOND! <REXIT-INITS3000#4) !<REXIT-INIT3777/2>> 
beLow MEM, SP4 COMPARE LOW ORDER BITS OF COUNT 
WrePCeMIcPee! ae 
<SUBTC! MEMX! SP4> 
c RCEATL sCARRY--TOO BIG 
MICPC=MICPC 
<JUMP! NASND! ERCFATL- ~INIT3300084> ! <RCFATL-INITS8777“2> > 
ALWAYS RCS sELSE CONTINUE 
MICPC=MICPC+1 
< JUMP! ALCOND! <RCS-INITSZ000#4> !<RCS-INIT&777 2) > 
RCFATL: LDMA 


MICPC= snicect| 

IF IDN IMM, IMM 

‘MOVE !LOMAR! Int! <18377> 
“MOVE! LDMAR! IMM! <T>> 

. ENDC 
MEMINC IMM,2 
MICPC=MICPC41 

<MOVE! WRMEM! INCMAR! IMM! <2>> 
MEM IMM, 311 
MICPC=MICPCH1 , 
<MOVE !WRMEM! IMM!<311>> 


ee ee ee a ee - 
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OS2)_ IMPLEMENTATION 
“DEC- ath -) aus 14 


6) O7-MAR-77_ 16:24 PAGE 12-2¢ PASE: Cite 
RETOCHECK SELECT ANG OSVNC AND BIOOLE LINE STATUS WORD 

LOMA —_IMM, <<RTHRS+#1>> ;ADDRESS ERROR LINK 

MICPC=MICPC41 


IDN IMM, IMM 
(HOVESLORAR! TRH ¢cRTHRS#1>8377>> 
<MOVE!LDMAR! IMM! < <RTHRS+1> >> 
END 
MEMINC IBUS, IOBAL 
MICPC=MICPC+1 
(MOVE! WRMEM! INCMAR! IBUS! < IOBAL>> 
MEMINC IBUS, IOBA2 
MICPC=MICPC+ 
<MOVE! WRMEM! INCMAR! IBUS! << TOBA2>> 
BRWRTE IMM, 20 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM! <20>> 
MEMINC IMM,O 
MICPC=MICPC+1 
CMOVE! URMEM! INCMAR! IMM! <O>> 
NEM BR, SELB 

MICPC=MICPC+1 
CMOVE? URMEM! BR! <SELB>> 
OUTPUT IMM, <200!0RCVCO> :FLUSH THE INPUT SIL 
MICPC=MICPC41 
<MOVE! WROUT! IMM! <209! ORCVCO> > 
sp IMM,1,SP1 :SET INIT MODE IN PORT STATUS WORD 
MICPC=MICPC41 
(MOVE! SPX! IMM! 1!SPi> 
ALWAYS NTRS 


MICPC=MICPC+1 
MMB TAL EDND! <NTRS1-INIT&3000#4> ! <NTRSL-INITS777/2)> 


BRWRTE MEMX,SUB!SP17 sCOMPARE RESPONSE 79 MSG NO 

MICPC=MICPC+i 

(MOVE! WRTEBR! MEMX! <SUB!SP17>> 
BR7 RH2 IF NEGATIVE EXIT 
MICPC=MICPC+1 

< JUMP! BR7CON! <RH3-INITS3000#4> ! <RH3-INITS777/2>> 

LOMA BR, SELA!SPO sADORESS THE TRANSMITLINK 
MICPC=MICP cecal 


IF IDN BR THM 
(HOVE OMAR! IMM! <SELA!SP0&8377>> 


IF 
<MOVE!LDMAR! BR! <SELA!SPOQ> > 


—— 


13 


Li oct PROTOCSL IMPLEMENTATION MACYL1 27(1006) 97-MAR-77 16:24 PAGE 12-27 PAGE: 9167 
NEW. Me 5e-Dec-76 10:14 SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 
id) oc END 
176? 015260 MEM IMM 0 -TURN OF ASSIGNESAND TMTED BITS IN FLAG 
C1) 901525 MICPC=MICPC 
a 015269 02400 CMOVETWRMEN! IMM! <>: 
1768 oO1S26e2 LOMA _IMM,STC 
(1) 001536 NICPCaMICPCHT 
£2) O01 IF ION IMM, IMM 
(1) o1S2@62 910070 ‘HOVE !LOMAR! IMM! <STC8377>> 
1) (MOVE! LDMAR! IMM! <STO>> 
1) 9c ENDC 
1769 D1s264 MEM IMM, TMLI s ASSUME WRAPAROUND 
(1) 001537 MICPC=MICPC41 , 
h) 015264 992472 (MOVE! WRMEM! IMM! <TMLI>> 
1770 015266 BRWRTE IMM, TMLE - WRAPAROUND? 
(1) 9c:540 MICPC=MICPC+1 
4) O1s26 OOd54s (MOVE! WRTEBR! IMM! < TML@>> 
1771 015270 CMP BR, SPO 
(4) 003541 MICPC=MgCPC+1 
iD 015270 60360 <SUBTC!BR! SPO> 
\i3 
1772 o1s27e 2 TDONY YES 
CL: 901542 MICPC=MICPC+1 
iB) oise7e 115545 TUNE! ZCOND! < TDONY- -INIT83000%4> ! <TDON4-INIT8777/2>> 
1772 015274 BRWRTE IMM,6 :OFFSET FOR NEXT TMT LINK 
(1) 001543 MICPC=MICPC41 
(1) 015274 900406 <MOVE! WRTEBR! IMM! <6) > 
1774 015276 MEM BR, ADD! SPO UPDATE THE POINTER 
(1) 901544 MICPC=MICPC+1 
h) 015276 962400 <MOVE ! WRMEM! BR! <ADD! SPO> > 
Ki) 
i775 015300 TDON4Y: LOMA — IMM,NXTSP ;ADDRESS DONE LINK 
{1} 001545 NICPC=MICPCH 
(1) 003 IF IDN IMM, IMM 
(1) 18300 910241 (HOVE !LOMAR! IMM! <NKTSP&377> 
(1) (MOVE! LOMAR! IMM! <NXTSP> > 
1) 000 ENDG 
. 
1776 015202 LDMA _MEMX, SELB!SPX!SP3 sADDRESS THE LINK, COPYING , 
(1) 00154 MICPC=MICPC+] 
(1) 001 -IF IDN MEMX, IMM 
iL) <MOVE!LDMAR! IMM! <SELB!SPX!SP33377> > 
(1) O1S302 oS3223 - <MOVE! LDMAR! MEMX! <SELB!SPX!SP3>> 
(1) 050 -ENOG * 
(i) t 
1777 :ITS ADDRESS TO SPO 
1778 15204 MEMINC IMM,200 =WRITE THE INTERRUPT TYPE 
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oN MO1l DDCMP PROTOCOL ab ih cha N MACY11 27(1006)_ O7-MAR-77 16:24 PAGE 12-28 
MAC Be bES-7 iC: SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND CIDOLE LINE STATUS WORD 


i DOC! 
‘ 


NEW 
(1) 901547 MICPC=MICPC+1 
ch) 015304 O1&&00 (MOVE! WRMEM! INCMAR! IMM! <200> > 
} 
1773 015306 MEM BR, INCA!SPO :COPY ACTUAL LINK ADDRESS 
(1) o01ss0 MICPC=MICPC+1 
uh) 015306 O62460 <MOVE ! WRMEM! BR! CINCA!SPO> > 
\ 
1780 015310 LOMA IMM, NXTSP sADDRESS PTR INT STACK 
(1) 001551 HICPC=MICECS 
4a 
C1) 018310 010241 Hove! LOnAR! IH! <NXTSP8377> 
i1) <MOVE! LDMAR! IMM! <NXTSP> > 
2) 050 ENDC 
1781 015312 MEM IMM, INTSTK ;ASSUME WRAP AROUND 
(1) ooiss2 MICPC=MICPC41 
dh) O1S312 o02b42 <MOVE! WRMEM! IMM! < INTSTK> > 
1782 015314 BRWRTE IMM, <<MMEND-2>> s ADDRESS ENDOFINT STACK 
(1) 001553 MICPC=MICPCH1 
4) 015314 900775 «MOVE! WRTEBR! IMM! <<MMEND~2> > > 
1783 O15316 CMP BR, SP3 : WRAPAROUND? 
(1) 901554 MICPC=MICPC+1 
1) 015316 060363 <SUBTC! BR! SP3> 
1784 015320 2 ToON4O : YES---BRANCH 
(1) ooisss MICPC=MICPC+1 
1) 015320 1155€0 < JUMP! ZCOND! < TDON4O-INIT$3000%4> ! < TDON4YO-INIT&77772) > 
1785 015322 BRWRTE ~IMM,2 “OFFSET TO NEXT PAIR 
(1) 001556 MICPC=MICPCHI 
) 015322 o00402 (MOVE! WRTEBR! IMM! <2>> 
y] 
1786 015324 MEM BR, ADD! SP3 ;UPDATE POINTER 
(1) 901557 MICPC=MICPC+1 
1) 915324 062403 UHOVE?RMEM! BR! <ADD! SP3) > 
, 
1787 015326 TDON4O: BRWRTE IMM,20 ;WRITE INTERUPT PENDING 
1 oe 001560 MICPC=MICPC+1 
dh) 615326 900420 «MOVE! WRZEBR! IMM! <20>> 
1788 015230 SP BR, AORB, SP1 -IN PORT STATUS WORD 
(1) 001561 MICPC=MICPC+1 
(1) 015330 063201 «MOVE! SPX! BR! AORB! SP1> 
1789 015332 LOMA IMM, ETC sADDRESS NEXT EMPTY PTR 
(1) 001562 NICPC=MICPCH 
(1) 001 IF IDN IMM, IMM 
1) 015332 010072 iHoyé Lone Ine ceTe8377> 
J 
(1) <MOVE! LDMAR! IMM! <ETC> > 
(1) 000 P -ENDC 
i) 


— 
N 
fs) 


- 015334 SP MEMX, SELB, SPO ;COPY IT TO SPO 


a2 
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OMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) O7-MAR-77 16:24 PAQGE 12-29 
DOCNEW.MAC ©: O6-DEC-76 10:1 SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 
(1) 001563 MICPC=MICPC+1 
uh) 015334 043220 <MOVE! SPX! MEMX! SELB! SPO) 
1791 015336 LDMA IMM, STC -GET NEXT DONE PTR 
(1) 001564 MICPC=MICPC41 
(4) 51 ' .IF ION IMM, TMM 
(1) 01336 010070 «HOVE !LOMAR! IMM! <STC8377> 
(1) , <MOVE!LDMAR! IMM! <STC>> 
) 00 END 
1792 015340 CMP MEMX, SPO ; IDENTICAL? 
(1) 001565 MICPC=MICPC+i 
ci) 015340 040360 <SUBTC! MEMX! SPO> 
1793 o1534e2 2 RH :FINISH PROCESSING HFODER 
<1) 001566 MICPC=MICPC+1 
i) 015342 105567 . < JUMP! ZCOND! <RH3-INIT&3000#4> ! <RH3-INIT8777/2) > 
1794 : 
i795 o1s344 TOON1: LOMA IMM, ISP17 :GET LAST ACKED 
(1) 001567 « _MICPC=MICPC41 
ae oes -IF IDN IMM, IMM 
(i) OLS3H4 O1CISS (HOVE!LDMAR! IRM! <ISP178377>> 
(i) ppt % . (MOVE! LOMAR! IMM! <ISP17>> 
1) ooo .ENDC 
1756 15346 sp MEMX, SELB, SP17 | :STORE® IT IN SP17 
(1) 901570 MICPC=MICcPC+1 3 
D 015346 043227 ; <MOVE ! SPX! MEMX! SELB! SP17> 
\i3 
1797 915350 . LOMA _ IMM. STC ;GET START OF TMT CHAIN 
(i) 001571 MICPC=MICPC41 
¢q) ; N IMM, IMM 
(1) o15350 o19070 «Cy. HOVE !LOMAR! IMM! <STC8377> > 
(1) “MOVE! LOMAR! IMM! <STC>> 
ch) 900 5 -ENDC 
y) i - 
1798 015252 LDMA §_MEMX, SELB!SPBRX!SPO :ADDRESS THE LINK 
(1) 901572 . MICPC=MICPC+i 
(1) 001 .IF IDN MEMX, IMM 
(1) <MOVE! LOMAR! IMM! <SELB! SPBRX! SP08377> > 
(1) O15352 053620 ; <MOVE ! LDMAR! MEMX! «SELB! SPBRX!SPO> > - 
1) ooo ENDC . 
1799 015354 : BRWRTE MEMX! INCMAR, SELB :GET THE FLAGS 
(1) 001573 MICPC=MICPC+1 
(1) 015354 oS4620 CMOVE ! WRTEBR! MEMX! INCMAR! <SELB> > 
1800 o1S3S6 BRI’  TDON3 ;IFBUFFER ASSIGNED PROCEED 
(1) 001574 MICPC=MICPC+1 
WD O1S2SE 116532 < JUMP! BRICON! < TDON3-INIT$3000#4> ! < TDON3-INIT$777-2) > 
(}) 
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1 DDCMP PROTOCOL IMPLEMENTATION ACY11 27(19006) O7-MAR-77 16:24 PAGE 12-30 

MAC) 06 OB-DEC-76 10:14 CE OS -cROUTINETO HECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 

018360 ALWAYS RH3 sELSE---EXIT 
oo1875 MICPC=MICPC41 

015360 104&¢7 «JUMP! ALCOND! <RH-2NITS3000#4: 1 <RH3-INITS777/2> > 

015362 OVRRUN: BRWRTE IMM,4 
001576 MICPC=MICPC41 

015362 oO00404 <MOVE! WRTEBR! IMM! <4>> 

015364 ALWAYS NTRSO 
00177 MICPC=MICPC4+1 

015364 114€71 < JUMP! ALCOND! <NTRSO-INIT&3000#4> ! <NTRSO-INIT8777 72) > 

; INPUTS: 
: SPO = RECEIVE CHARACTER 

O1S366 PASWRD: SP 1BUS LNOSW, SP16 sREAD PASSWD SWI7CH 
001600 MICPC=MIC 

O15366 922336 CMOVE ! SPX! TBUS! LNOSW! SP16> 

015370 2 10$ -IF ALL ONES NO RLD ENABLED 
001601 MICPC=MICPC+1 

015370 115605 < JUMP! ZCOND! < 10$-INIT&3000*4> ! < 10$-INIT&777/2>> 

015372 BRWRTE IMM,6 ;CHECK FOR ENTER MOP MODE 
001602 MICPC=MICPC+! 

015372 900405 (MOVE! WRTEBR! IMM! <&>> 

015374 CMP 
001603 Se PCEMIEPES I 

015374 060360 rsUBTC! BR! SPO> 

015376 2 20$ ;IF EQUAL ENTER MOP 
001604 MICPC=MICPC+1 

015376 115612 TOME? 7COND! <208-INITS3000%4> : <20$-INIT&777/2>> 

015400 108: BRWRTE ®BR,SELA!SP1 ;READ STATUS BYTE 
901605 MICPC=MICPC+1 

015400 060601 «MOVE! WRTEBR! TBR! <SELA!SPi»> 

g1s4oe BRSHFT ;SHIFT IT RIGHT 
001606 MICPC=MICPC+1 

o1s402 001620 <MOVE! SHF TBR! WRTEBR! SELB> 

015404 BRI RHX :MESSAGE WITH NO BUFFER ASSIGNED 
001607 MICPC=MICPC+1 

015404 106751 < JUMP! BRICCN! <RHX-INIT&3000%4> ! <RHX-INIT&777/2>> 

015406 BRSHFT ;SHIFT RIGHT AGAIN 
001610 MICPC=MICPC+1 

015406 001620 HOVE? SHE TER! WRTEBR! SELB» 

015410 BRI RCVMO :DLE RECEIVED IN NORMAL MODE 
001611 MICPC=MiCPC+1 

CiS410 106743 < JUMP! PRICON! <RCVMO-INIT$3000%#4> ! <RCVMO-INIT8777/2)> 
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OMoi1 ODCMP PROTOCOL IMPLEMENTATION MACY11 27(:006) O7-MAR-77 16:24 PAGE 12-31 
'COCNEW.MAC 8©6- OB-DEC-76 10:14 SELQSY--ROIJT INETOCHECK SELECT AND QSYNC AND DIDDLE LINE STATUS WORD 
{dy 
|; 1819 o1s412 ALWAYS _RK3 sHANDLE MAINT MODE MESSAGE 
(1) 001€:2 MICPC=MICPC+1 
(1) o1s412 104661 < JUMP! ALCOND! <RK3-INIT&3000%4> ! <RK3-INIT8777/2) > 
| 1820 O1s414 208: sp BR DECA, SPY ;COUNT FOR NUMB OF COMPARES 
Don on 001613 MICPC=MICPt+ 
| 1) 015414 063165 (MOVE! SPX! BR! DECA! SP4> 
| . 1821 O15416 be: STATE Ete. 
(1) 001614 MICPC=M 
| C1) g1s4ig 00074¢ 3 CHOVETURTEBR# THM! ENE INIT8777/2> > 
| 'ee 015420 ALWAYS REX xIT 
1 h) 001615 MICPC=MICPC+ 
1) o1s420 104422 < JUMP! ALCOND! <REXIT- INIT83000%4> ! <REXIT-INIT8777/2> > 
| 1823 o1s4e2 RCVM1: LOMA IMM ISP11 ;ADDRESS SP11 IMAGE 
(1) 001616 NICPCSNICEC# 
(1) 061 IF IDN IMM, IMM 
Ge) o1s422 010171 (HOVE! LOMAR! IMM! <ISP118377> > 
\a) * 
} 2) <MOVE!LDMAR! IMM! <ISP11>> 
P. a 000 .ENDC 
(1) 
| 1834 o1s4a4 MEM BRADECA!SPLL :COPY SP11 
| “<3 001617 MICPC=MICP 
| 1) 015424 962571 CMOVE? IRMEM! BR! <DECA!SP11>> 
| 1825 og1sHee LOMA IMM, NXTSP 
| (4) 901620 NICPC=MICPC PC 
ams 001 IF IDN IMM om 
1) O1S426 01024! (HOVE !LDMAR! IMM! <NXTSP8377> 
| 6h) <MOVE!LDMAR! IMM! <NXTSP> > 
(i) 000 .ENDC 
1826 015430 sp MEMX! LDMAR, SELB, SP3 :COPY TO SP3 
(1) 001621 MICPC=MICPC+1 
(1) 015430 053223 <MOVE! SPX! MEMX! LDMAR! SELB! SP3> 
5) 
1827 015432 MEMINC IMM, 204 :RECEIVE DONE IMAGE 
(1) 001622 MICPC=MICPC41 
1) 015432 O16604 <MOVE ! WRMEM! INCMAR! IMM! <204> > 
1828 015434 MEM BR!LDMAR, SELA!SP14 -COPY LINK ADDRWESS TO NEXT IN 
| CD 001623 MICPC=MICPC+1 
1) 015434 072615 (MOVE ! WRMEM! BR!LDMAR! <SELA!SP14>> 
1829 015426 MEMINC IMM,O ;ZERO THE FLAGS 
(1) 001624 MICPC=MICPC+1 
1) 015436 O1&400 <MOVE ! WRMEM! INCMAR! IMM! <O>> 
1830 O1S440 sp 1BUS 10BA1,SP4 :GET BEGIN ADDRESS LOW 
(1) OC1b25 MICPC=MIC 
(1) mic44o 922144 CMOVE! SPX! TBUS! IOBAL!SP4> 
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MACY11 27(1006) Q7-MAR-77_ 16:24 PAGE 12-32 | PAGE: 172 
FL aSY-cROUTINETOCHECK SELECT ANS OSYNC ANID SIDOLE LINE STA:_seee 

ae IBUS, 10BAZ, SPS ;AND HIGH BYTE 

MICPC=M 


* 108: 


ICPC+ 
(MOVE! SPX! IBUS! IOBA2! SPS> 


MEMX? INCMAR, SUB, SP4 
MICPCeMICECs 
«MOVE! SPX! MEMX! INCMAR! SUB! SP4> 
C 10$ 
MICPC=MICPC+1 
<JUM 
BR, DECA, SPS 


sp 
MICPC=MICPC+1 
«MOVE! SPX!BR! DECA!SPS> 


SP MEMX! INCMAR, SUB, SPS 
MICPC=MICPC+1 
MOVE? SPX! MEMK! TNIOMAR! SUB! SPS> 


MEMINC BR we 
MICPC=MICP 
<MOVE! WRMEN! INCMAR! BR! <SELA!SPS>> 


MEMINC BR, SELA!SP4 
MICPC=MICPC+1 

CHOVE! IRMEM! INCMAR! BR! <SEL 
BRWRTE IMM, 2 
MICPC=MICPC41 

(MOVE! WRTEBR! IMM! <2>> 


LDMA —_IMM,NXTSP 
NICPC=MICEC#L 


: IMM, IMM 
<HOVE!LDMAR! IMM} <NXTSP8377> > 
<MOVE! LDMAR! IMM! <NXTSP> > 
-ENDC 


A!SP4> > 


MEM BR, ADD! SP3 
MICPC=MICPC+1 
CHOVE? WRMEM! BR! “ADD! SP2> > 


BRWRTE 104, < <HMENO=@> > 


MICPC=MICPC+1 
(MOVE! WRTEBR! IMM! < <MMEND-2> >> 


CMP BR, SP3 
MICPC=MICPC41 
<SUBTC! BR! SP3> 


Z A 
MICPC=MICPC 


SUBTRACT TO GET COUNT 


;IF CARRY SET THEN NO CARRY! 
MP! COOND! < 1OS-INITB3O0044> !< 10$-INIT8777/2>> 
;DECREMENT HIGH BYTE OF ADORESS 


; SUBTRACT FOR COUNT 


;COPY TO MEMORY LINK 


;ADDRESS NEXT INT STACK 


;ADDRESSEND OF INT STACK 
;WRAP AROUND 


; IFYES-- BRANCH 


TUM? COND! <RMIFLP-INITS3000%4> ! <RMIFLP- ~INIT&7772>> 
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oMoi1 DOCMP PROTOCOL IMPLEMENTATION MECY11 27(1006) O7-MAR-77 16:24 PAGE 12-33 PAGE: 6172 
=NEW.MAC © O&-Dec-7@ lo:14 SELQSY--ROUT INETOCHECK Select AND Q@SYNC AND DIDOLE LINE STATUS WORD 
4 O1SH74 ALWAYS RIK 
(1) 001642 MICPC=MICPC 
oe o1su74 «1 14E45 <JUMP! ALEOND! «RMX? = INIT8S000%4> ! <RMX1-INIT8777/2>> 
4 
845 O1su7E RMIFLP: MEM IMM, INTSTK 
(1) oo1e44 MICPC=MICPCS! 
a O1S476 002642 (MOVE! WRMEM! IMM! << INTSTK > 
1846 915500 RMX): 
1847 915599 LOMA _IMM,LRC 
C1) Do1g¥ NICPC=MICPC#I 
ae IF ION IMM, IMM 
(1) 015500 o1bS4 <MOVEEL LOMAR! IMM! <LRC8&377> > 
(1) <MOVE !LDMAR! IMM! <LRC>> 
:) oo0¢ -ENDC 
1948 915502 BRWRTE IMM.S INDEX TO NEXT BUFFER 
(1) O01646 MICPC=MICPC41 
(1) g1ss02 ScC4os (MOVE! WRTEBR! IMM! <5>> 
ii) 7 
1843 O15504 SP BR, ADD, SP14 :UPDATE COPY OF POINTER 
C1) 001647 MICPC=MICPC+1 
(1) 15504 063014 «MOVE! SPX! BR! ADD! SP14> 
1860 15506 BRWRTE IMM,STC :ADDRESS OF WRAP AROUND POINT 
(1) oo1eso MICPC=MICPC41 
(1) o1SS06 905470 (MOVE !WRTEBR! IMM! <STC>> 
i8&1 015510 CMP BR, SP14 » WRAPAROUND? 
(1) 001651 ~ mIcPC=m1cPt+1 
(1) 015510 06037 <SUBTC!8R! SP14> 
(1) 
1852 15512 2 RMFLIP SIF YES---BRANCH 
(1) _ oo1ese MICPC=MICPC+1 
cd) o1ssi2e 115655 TOME! ZCOND! <RMFLIP=INITS3000%4> ! <RMFLIP- -INIT8777/2>> 
1852 D1SS14 MEM BR. SELA!SP14 ELSE UPDATE THE POINTER 
(1) 901653 MICPC=MICPC+1 
iL) 015514 062614 <MOVE !WRMEM! BR! <SELA!SP14> > 
1854 SISSIE ALWAYS RMX 
1) 001654 MICPCSMICPC+1 
1) GISS16 1IHESE SMP TALCOND! <RMX-INITS30004) ! <RMX= INIT8777/2>> 
1955 o1ss20 RMFLIP: MEM IMM, RCL1 :POINT TO FIRST LINK 
(13 001655 MICPC=MICPC+1 
1) oiss20 002425 (MOVE! WRMEM! IMM! <RCLL>> 
J 
1856 o1ssee | RMX:  BRWRTE IMM,20 -MASK FOR INTERUPT PENDING 
(1) OO1ESE MICPC=MICPC41 
a) o1ss22 00420 (MOVE! WRTEBR! IMM! <20>> 
1867 o15S24 Sp DP, AORB, SP1 UPDATE PORT STATUS WORD 
(1) _ 991657 MICPC=MICPC+1 
(1) o1sse4 96330) MOVE! SPX! DP! AORB! SP1> 
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LDMOS: DDCME PROTOCOL IMPL EMENTATION MACY11 27(1006) Q7-MAR-77 16:24 PAGE 12-24 
[ECINEW. SAC 606 6-Dec-76 ie:14 SELOSY--ROUTINETOCHECK SELECT ANC OSYNC ANO OIDOLE LINE STATUS WORD 
186 oISS26 | BRWRTE DP, <SELA!SP1O> sREAO LINE STRTUS WORD 
(1) QO1EE° MICPC=MICPC41 
(1) 028826 9606:5 (MOVE! WRIEBR! OP! <SELA!SPIO 
1859 015530 SRY FLUSH SIF CLEAR ACTIVE SET---FLUSH 
(1) 001661 MICPC=MICPC41 = 
2) 015530 197015 CT MBIBRICON! <FLUSH-INITS3000#4) ! <FLUSH-INITS777/2> ) 
1860 015532 Rl: STATE | RCVA, 
1) ocige2 MICPC=MICPC41 
(1) 015532 oo04ac cMOVE! WRTEDR! IMM! <RCVA-INIT8777/2>> 
1861 915534 ALWAYS REXIT 
(1) 001663 MICPC=MICPC41 ye 
ib 015524 104422 < JUMP! ALCOND! <REXIT-INITS2000#4) ! <REXIT-INIT8777/2>» 
1862 015536 NTHRES: LOMA _—=sIMM. ST 
Ci) OCibs4 MICPC=MICPC41 
et) a IF IDN IMM. IMM 
(13 Q1S536 oc1S154 HOVE !LOMAR! Thm <ST8377> > 
(f) <MOVE!LDMAR! IMM! <ST>> 
2) 900 END 
1862 O1SS40 SPBR _ MEMX, SELB, SPO 
Ch) 901665 MICPC=MICPC+1 
oe C1ss4O 043620 (MOVE! SPBRX! MEMX! SELB! SPO» 
1864 o1ss4e BRWRTE BR,ADD!SPO :SHIFT LEFT 
(1) 001666 MICPC=MICPC+1 
ae orss42 060490 (MOVE !WRTEBR!BR! <ADD!SPO>> 
(i) 
1865 oO1S544 BRY OVRRUN 
(13 051667 MICPC=MICPC+41 
G CIss44 117176 <JUMP! BRUCON! <OVRRUN- ~INIT83000#4> ! <OVRRUN-INIT3777"2> 
1866 CISS¥E BRWRTE IMM, 1 
(1) 001670 MICPC=MICPCH1 
(i, O1SSHE S0040 MOVE! WRTEBR! IMM! <1>> 
1867 OISESC ERRXX: 
ieee S1s550 NTRSC: LOM IMM, <<RTHRS+3> > 
(1) 001871 MICPC=MICPC41 
(2 001 -IF IDN IM ny Zn 
1) QUS5S0 010177 (MOVE! LOMAR! IMM! << RTHRS+3>8377> > 
(1) “MOVE !LDMAR! IMM! <<RTHRS+2> >> 
$e 900 -ENDC 
(1) 
186S oO1SSs2 MEMINC _IMM,O 
(1) 001672 MICPC=MICPC41 
1) o1sss2 OL6400 HOVE? WRMEN! TNCMAR! IMM! <)> 
1870 O1SSs4 ‘ MEM BR, SELB 
C1) 901672 MICPC=MICPC+1 
(1) OISSS4 OE2620 (MOVE !WRMEM!BR! <SELB>> 
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/omo12 DOCMP PROTOCOL IMPLEMENTATION MACYL1 27( 1006) O7-M se 16:24 PAGE 12-35 Ace: 
lECiNEW.MBC 806 D6-Dec-?6 10:14 SE! QSY--ROUTINETOCHECK SELECT ANS QSYNC ANS OIOOLE LINE STATUS WORD 
1871 olSSs¢ NTRSi: LOMA IMM. NXTSF 
(1) O01E74 MICPC=MICPC41 
(1) 501 -IF IDN IM Mit 
(1) QISSSE 0108S! (HOVE ILDMARE Tit! (NXSPS377> 
(1) <MOVE !LOMAR! IMM! <NXTSP> > 
(1) oc -ENDC 
1872 oO15S¢0 LDMA = MEMX, SELB!SPX!SPO 
C1). OO1e75 MICPC=MICPC+] 
1} 991 IF IDN MEMX, IMM 
(1) <MOVE!LDMAR! IMM! <SELB!SPX!SPO3377> > 
‘t} OISS6O 053220 (MOVE! LDMAR! MEMX! <SELB!SPX!SPO> > 
te 556 -ENDC 
1873 o1ss62 MEMINC IMM 201 
(1) 9167 MICPC=MICPC 
(1) 018862 Siéh0] CMOVE URMEN? INCMAR! IMM!<201)> 
1874 O1SSé4 MEM TMM, <<RTHRS> > 
Cy) 001877 MICPC=MICPCH1 
(1) O1SS64 083574 «MOVE! WRMEM! IMM! < CRTHRS> >> 
(7) 
1875 O1SS65 LOMA «IMM, NXTSP 
(1) 09:790 NICPC=MICPCH 
(1) > 901 IF IDN IMM, IMM 
4y) OISSEE cuCeN? «MOVE !LOMAR! IMM! <NXTSP&377> 
c15 (MOVE! LDMAR! IMM! <NXTSP> > 
+ 900 END 
1876 15570 MEM IMM, INTSTK SASSUME QUELIE WRAP AROUND 
(4) 90:701 MICPC=MICPC41 
(1) 15570 d08642 | «MOVE! WRMEM! IMM! CINTSTK> > 
1877 o15S72 BRURTE IMM. <<MMEND-2> > 
(1) 901702 MICPC=MICPCt 
(1) g1ss7@ o00776 (MOVE! WRTEBR! IMM! << MMEND-2> >> 
1876 ciss74 CMP 
C1) 001703 NICPCEMICEE 
oe SISS74 OF02EC <SUBTC! BR! SPO> 
(1) 
1879 O15576 NTRS2 :IT DID WRAP AROUND 
C1) 001704 Srcpcen ICPC+1 Re 
oe 918576 115707 TOMB? ZCOND! <NTRS2- -INIT83000#4> ! <NTRS2-INITS777/2>> 
(1) 
1860 o15600 BRWRTE IMM.2 OFFSET TO NEXT PAIR 
(1) 001705 MICPC=MICPC41 
oe 015690 OO0402 <MOVE! WRTEBR! IMM! <2>> 
1881 o1sece MEM BR, ADD! SPO SUPDATE QUEUE POINTES 
(1) 00170 MICPC=MICPC+1 
(li olseoe o640 MOVE ! WRMEM! BR! <ADDISPC > 
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j MGR-7 16:24 PAGE 12-3 a ‘ Ser em PaGE: O1L7E 
SerOr Meck SELECT AND QS'NC ANS OIDOLE LINE STATUS WOES 


ae 


NTRS2: BRWRTE IMM, 20 
MICPC=MICPC+1 
MOVE! WRTEBR! IMM! «20>: 


SPBR BR, -* ah SP i 
MICPC=MICPC+ 
«MOVE! SPBRX! RY AORE! SPI» 


BRO TAB sFLAGGES BY ERROR TYPE 
MICPC=MICPC+1 
« JUMP! BROCON! < TABL-INITS3000#4> #7 TABi-INITS?77772> > 


SNEK: LOMA IMM ISPL1 
NEcPCanzcpct 1 
IF IDN IMM, IMM 
(HOVE!LOMAR! Imm! 1SP118377 


IF 
<MOVE!LOMAR! IMM! <ISP11>> 
.ENDC 


Sp MENX, SELB, S SPL: 
MICPC=MICPC+! 
(MOVE! SPX! MEMX! SELB!SP11 


SP BR, _— SP1 : INCREMENT MSG EXPECTED 
MICPC=MICPU 
«MOVE! SPX! BRIINCA!SP11 


SNAKi: BRWRTE IMM,1 ;UNNUMB PENING SIT TO 8K 
MICPC=MICPC+1 
«MOVE! WRTEBR! IMM!< 2° > 


SNAK2: SP BR, AORB, SP1C ;UPORTE LINE STATUS WORD 
MICPC=MICPE+1 
<MOVE! SPX! BR! AORB! SP12> 


ALWAYS FLUSH 
MICPC=MICPC+1 ae 
<JUMP!ALCOND! <FLUSH-INITS2000#4 !<FLUSH-INITS777"2)> 


EMTRIG: BRMRTE Int 24 
cHOVE!URTEBR! IMM! 24> 


OUTPUT BR + meee OBAL> 
MICPC=MICP 
«MOVE! WROUT! 78R! SELB! OBAL » 


BRWRTE Lash 
MICPC=MICPC 
HOVE! WRTEBR! IMM! <0) 


OUTPUT BR, <SELB!0BA2> 
MICPC=MICPC+! 


——EE 


cM": CDOME PROTOCOL IMPLEMENTATION MACYL1 27(1006)_ Q7-MAR-77_ 16:24 PAGE 12-37 
EorMew Mac 86 e-Dee-7& lo: 14 CES SEY -SROUTINETOSHECK SELECT ANG SYNC ANC DIDOLE LINE STATUS WORE 

+ 018634 62227 MOVE! WROUT!BR! «SELB! OBG2> > 

1856 015636 SPBR 1BuS BM873, SPO -READ 84973 ADORESS--- 
(1) 001724 MICPC=MICP : 
ae 015636 O82374C CMOVE! SPBRX! IBUS! 8M873! SPO» 

1897 O1SE4C QUTPUT, BR, SELB! OUTDAL :SET UP LCW BYTE OF ADDRESS 
(1) 001725 MICPC="ICPO+ 
(1) OISbHO 062222 (MOVE! WROUT!BR! <SELB!OUTDAL » 
Lat 

1898s o1se42 BRWRTE 1M, 366 sHIGH BYTE BASE FOR ROM 300T 
1) 00172 MICPC=MICPC41 
(1) o1se42 S0o7e= (MOVE! WRTEBR! IMM! <366>> 

1968 o15644 OUTPUT BR, SELS!0UTDAZ 
(1) 001727 MICPC=MICPC+1 . 
(1) O1Se44 0&2222 (MOVE !WROUT! SR! <SELB!OUTDAS> » 

1369 915e46 EM: BRWRTE IMM, 21 “MASK FOR TIMER AND ALSC TO START NPR 
Y) 903730 MICPC=MICPC41 
‘f) o1se4e 360421 (MOVE !WRTEBR! IMM! <21>> 
7) 

1861 O1SE50 OUT BR, «SELB! OBR> 
if) 09:72: MICPC=MICPC+1 
a N1S650 06123! (MOVE! WROUTX! BR! «SELB! OBR> > 

1902 o1sese OUT BR, «SELB! ONPR> 
(13 901732 MICPC=MICPt+1 
(1) DIS6Se 061230 (MOVE! WROUTX! BR! <SELB!ONPR) » 

1802 c15654 EM]: BRWRTE IBUS.NPR -READ NPR CONTROL 
1) ~ 001733 MICPC=MICPC+ 
(1) C1554 120655 MOVE !WRTEBR! IBUS! <NPR> > 

1904 O1S&S6 BRO CKTIME 
(13 001734 MICPC=MICPC+1 . , a 
(1) QISES6 102372 <JUMP! BROCON! <CKTIME- INITE300084> ! <CKTIME-INITS?777-'2> 

1805 D1seEeo MEMADR RMI SIF NPR DONE 
15 001736 MICPC=MICPC+1 
(i) giSes0 cozbé2 (MOVE ! WRMEM! <RMI-INIT8777/°2>> 
(3 CMOVE!MRMEM! ! <RMI-INIT8777/2> > 
(1) coo -ENDC 

1906 o1Se62 ALWAYS ACLOW 
se 901736 MICPC=MICP As POs 
ee 915662 100765 TOME HE COND! <ACLOW-INIT&3000#4> ! <ACLOW-INITS777/2>> 
(dp. 

1907 O1S¢e4 TABUPD: SPBR _IBUS, RCVCON, SPO :READ RECEIVER CONTROL REG 
(1) 001737 } MICPC=MICPC+ 
a) O1S&64 PzeaE4C <MOVE ! SPBRX! IBUS! RCVCON! SPO> 

1808 OLSeRS PRWRTE BR, ADD!SPO SHIFT LEFT 
1) 901746 MICPC=MICPC+1 
(1) Misees 060400 MOVE !WRTEBR!BR! <ADD!SPO> > 


Ji4 


OMoi; DOCME PROTOCOL IMPLEMENTATION MACYL1 27(1006)_ Q7-MAR-77 16:24 PAGE 12-39 PAGE 
SorNEW.MAc 206 De-bec-"6 1o:l4 Sz.G heh “ROUTINETOCHECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 
1989 915670 BR?  —s«'TDLE SRECEIVE ACTIVE--IDLE 
(13 01741 MICPC=MICPC41 
(1) oise7a Id344é CTUMP? BRICON! < IDLE- INI TS3COO#4> # <IDLE-INITS777"2> 3 
1910 o1S872 TABL: LOMA IMM, IMGIO 
(1) 001742 MICPC= mrcecty 
(1) O01 IF TON IMM, Ie 
1) o1se72 o0T8& <MOVE 'LOMAR! IMM! < IMG1O837 
(1) ¢MOVE!LOMAR! IMM! <IMG1O>> 
1) alsis LENDC 
1811 o1s674 BRWRTE IMM, 2 
‘13 001743 MICPC=MICPC41 
1) 015674 900422 CHOVETURTEBRE IMM! <2> ) 
1912 OSE? MEMINC BR AANDB! SPC “SAVE BIT 1 OF SPIC 
(1) 01744 MICPC=MICPC+ 
(i) o1se7s 76670 OMOVE! WRMEM? INCMAR! BR! <ARNDB!SP10>> 
1813 015700 MEMINC BR,SELA!SP11 :SAVE SPL! 
1 901745 MICPC=MICPC+1 
(1) o1S700 O?éeLi (MOVE !WRMEM! INCMAR!BR! <SELA!SF11>> 
a) 
1914 o1S792 NEMINC BR,SELA!SP12 SAVE SP12 
ae 90:74 MICPC=MICPC+ a 
(1) ous7oe O76612 <MOVE 'WRMEM! INCMAR! SR! <SELA!SP12>> 
i915 o1s704 NEMINC BR, SELA!SP17 SAVE SF17 
(1) 001747 MICPC=MICPC+ 
oe 015704 O76617 <MOVE! WRMEM! INCMAR! SR! <SELA!SP17>> 
1916 ' 
1317 O15706 STATE RB -NOTE: THE SRG CANNOT SE CHANGED FROM THIS 
13 001750 MICPC=MICPC+1 
(1) 015706 SOO4é! <MOVE! URTEBR! INM! cRB2-INIT3777/ '2)) 
1918 “POINT UNTIL THE BRANCH TO RSC 
i918 o1s71¢ CMP 
(1) 001751 Ce PCeMIEROT 
cD 015719 S€0363 <SUBTC!BR! SP3> 
(iJ : Py 
1920 D1s712 Z IDLE - 
(1) ~ OO1752 MICPC=MICPC+1 whae re 
(1) o1s712 101445 TOME? SCOND! < IDLE- INITS3000%4> !< IDLE-INITS777/2> > 
,a) 
1921 
1922 015714 &p MEMX, SELB, SP123 
(13 001753 MICPC=MICPC+]1 
(1) O1s7i4 043223 (MOVE! SPX! MEMX! SELB! SP12> 
1923 O1S716 ®- PSTATE TBUL -NEW PORT STATE ADDRESS 
1} O1571¢6 _ MEM IMM, << TBUL-INIT8777/2> > 
(2) ~ 001754 MICPC=MICPC+ me) Ye 
fe) O15716 002775 CMOVE !WRMEM! IMM! << TBUL- INITS77772>> 





“DMSi2 DOCME PRSTOCOL IMPLEMENTATION MACYL1 27(1906) O7-MAR-77 16:24 PAGE 12-39 - 
1ErENEw.MAC 806 De-Dec-76 Lc:i4 SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND CIOOLE LINE STATUS WORD 
1924 18720 Sp IMM, 4, SP4 SINITIALIZE COUNT 
(1) 991755 MICPC=MICPC41 
(1) 018720 903004 <MOVE!SPX! IMM!4! Spy) 
1385 SNOTE: FIRS? & RAM LOCATIONS ARE NOT 
143 . "TO CORE 7 
1827 oO1S722 LOMA —_—sIMM, BASE :MAR NOW POINTS TO BASE 
iT) 501756 nicrcamicecsl 
C1) 90) IF ION IMM, IMM 
(1) 015722 919017 <MOVE!LONARE IMM! <BASES377> 
(1) 
1) “MOVE! LOMAR! IMM! <BASE> > - 
}) 992 ENDC 
1928 o18724 ALWAYS RBO -THE BRG MUST BE PRESET TO STATE RBZ 
ff) 901757 MICPC=MICPC+ 
(1) O1S724 104443 TOMB TAL COND! <RBO- -INIT&3000%4> ! <RBO-INIT8777.'2>> 
1929 015726 EC2: BRWRTE IMM.2 sINCREMENT COUNT/TEST 
ih} 90:760 MICPC=MICPC+1 
(1) 018726 005402 (MOVE! WRTEBR! IMM! <2>> 
1936 O57 SP BR, ADD, SP4 
(1) 091761 MICPC=MICPC+1 
ib 015720 063004 <MOVE! SPX! BR! ADD! SP4> 
1931 015732 SP IBUS, IOBAL, SPO :POINT TO NEXT ADDRESS 
1) ~ 901762 MICPC=MICPC+ 
a 01s732 0231495 «MOVE! SPX! IBUS! IOBAL!SPO> 
1932 015734 OUTPUT BR.ACD!0BAL 
(1) 001763 MICPC=MICPC+1 
(1) 015734 062006 <MOVE! WROUT! BR! <ADD!OBAL>> 
{23 
1932 O1573€ SP 1BUS, IOBA2, SPO 
(1) 901764 MICPC=MICPC+ 
(1) 018736 23160 <MOVE! SPX! IBUS! IOBA2! SPO> 
La? 
1934 o15740 OUTPUT BR, AC!OBA2 
(3) GO17ES MICPC=MICPC+1 
oe p15740 062107 <MOVE ! WROUT!BR! <AC!OBA2> > 
© 
1935 o1s74e C TABMXT 
ee O017EE MICPC=MICPC+1 Pia 
a o1s742 105373 TOME? CEOND! < TABMXT- INIT$ 300084 ! <TABMXT-INITS777.‘2>> 
} 
195; 
1937 015744 ox: BRURTE BR!LOMAR, SELA! SPY :READ COUNTER 
(1) 001767 MICPC=MICPC+ . 
ch) 015744 070604 (MOVE! WRTEBR! BR!LDMAR! <SELA!SP4> > 
1938 O1S746 BR? 20$ :ALL DONE 
(1) 001770 MICPC=MICPC+1 
a) O1s74e «117774 < JUMP! BR7CON! < 20$-INITS3000#4> !< 20$-INITS$?777/2>> 
1939 015750 OUTPUT MEMX! INCMAR, SELB! OUTCAL sSTCRE COUNTS OF ERRORS 


K14 





- ITTE? 


wm. 


—— ee 


ee ee 


L14 


HOMCLI ODCMP PROTOCOL IMPLEMENTAT =O! MBCY11 27(i006) QO7-MAR-77 16:24 PAGE le-4 


‘EDENEW. MAC 86 OB-DEc-76 10:14 SEL QSY--ROUTINETOCHECK SELECT ANO OSYNC ANIC 3 DOL LINE STATUS WORD 
(1) 901771 MICPC=MICPC+1 ' 
oH) ois7so OSé222 (MOVE! WROUT! MEMX! INCMAR! <SELB!OUTDALS > 
1940 015752 OUTPUT MEMX! INCMAR, SELB! OUTDA2 
(1) 001772 MICPC=MICPC+1 
b) ois7se 056223 (MOVE! WROUT! MEMX! INCMAR! «SELB! OUTDA2> > 
1941 oO15754 ALWAYS RK 
(1) 001773 MICPC=MICPC+1 m 
oe 915754 104641 <JUMP!ALCOND! <RK8-INITS3O00#4).! <RKS-INIT3777/2) > 
1942 
1943 O1S756 20$: LOMA IMM, PRTST 
C1) 001774 MICPC=MICPC41 
(13 991 IF ION IMM, IMM 
(1) OlS7S& O1C16= (HOVE!LDMAR! IMM! <PRTST837~> 
i a 
(1) “MOVE! LDMAR! IMM! <PRTST> > 
(2) p00 -ENDC 
1944 015760 MEM BR SELA!SP13 
ve ff 901775 MICPC=MICPC+ 
cB) 015765 062613 <MOVE! WRMEM! BR! <SELA!SP13>> 
1945 915762 ALWAYS RM1 
61) 001776 MICPC=MICPC+1 a J 
ib) o1s7b2 1i4é62 < JUMP! ALCOND! <RM1-INIT&3000"4> ! <RM1-INIT8777/2>> 
eS @ 
1846 015764 $ZERO 
(1) 901777 MICPC=MICPC+1 
ae 015764 990000 oodod0 
{13 
1947 000001 END 


', ABS. OLS76E oor 
ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 
_ ,DDCNP CRF /DS: CRF ¢DMCNEW, LOW, DDCNEM 
 -RUN-T 59 CONDS 
RUN-TIME RATIO: fipsine 8.0 
CORE USED: 7K (12 PAGES) 


L623 02700 





oS -MaR->7 


012737 
012737 


104412 


104012 
104414 


104400 


012737 
012737 
012737 


032737 
001430 
005000 
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PAS PASE: 


GE 35 
ENERAL UTILITIES (TYPECUT, ERROR, SCOPE, ETC) 


fu 
- 
Oru 


5 REAL RLARALRK RARE RARERREREEES TEST | £HRRRAEREAESREEA SAL ERE SEES 


; T SHIF 
;*VERIFY THAT A DEST OF BR RSH 9A) OF A MICRO-INSTRUCTION 

j#SHIFTS THE RESULTING BR DATA RIGHT ONCE. 
5 RRR RHEE REE EEE E EERE EERE EERE AER RAL E REE LE LEAR ESSE EES SS 


; TEST 1 
00001 901226 TST1: Mov #1, TSTNO 
016100 Odleis MOV #TST2, NEXT 
:R1 CONTAINS BASE OMC11 ADDRESS 
MSTCLR MASTER CLEAR DMC11 
001404 MOV DMCSR,R1 :R1 = DMC BASE ADDRESS 
CLR (Ri) :CL EAR S 
os2se5 “OV s52525 RS ‘START WITH 125 
oooc04 MOV 4(R1) : PORTY+ 125 
ROMCLK ; NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
120500 + POR 
ROMCLK + NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
061620 :BR RSH*BR, SHIF GH 
ROMCLK :NEXT WORD’ IS INSTRUCTION, ROMCLK PC=5204 
061225 ;P +BR 
ROR RS . ;RS = “EXPECTED” 
ooooos MOVB SiR1),R4Y :RY 
cnPe Re RY :DID “BR SHIFT RIGHT ONCE? 
- HLT 12 ‘BR RIGHT SHIFT ERROR 
ses °° 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
061620 :BR RSH*BR, SHFT SR RIGHT 
ROMCLK :NEXT WORD'IS INSTRUCTION, ROMCLK PC=5204 
061225 ipo TS+BR 
ROR RS = “EXPECTED” 
po0005 MOVE  S(R1),RY Ra = "FOUND" 
CMPB =e RS, R4 ;DID BR SHIFT RIGHT? 
BEQ 2$ Y 
HLT 12 ‘BR RIGHT SHIFT ERROR 
2S: SCOPE ‘SCOPE THIS TEST 
5 RERKEKELEAHRERERAEREEAKEERE TEST © RRRERARASERARAERRLARA LEER EE 
:#I0P CRAM WRITE/READ TEST 
ar bal A 1 THROUGH EACH CRAM LOCATION 
s LERRAKREREALA LAA ALARA ALLAAH AAA EAA RALAAAARA LAAT LALALARRARAATIAY 
4 Teste 
ooo002 001226 TSTe: Mov #2, TSTNO 
016214 OOlel6 MOV #TST3, NEXT 
016140 O01220 MOV #33, LOCK 
:R1 CONTAINS BASE | ONC LL ADDRESS 
100090 001366 P BIT #BITIS,STAT! . ;DOES DMC HAVE CRA 
BEG c$ SKIP TES 1 IF NO CRAM 
CLR RO ?RO = CRAM ADDRESS 


cw 


20M3_ _MACY1L 

ZOMGE.P 11 
1680 016134 
1681 016140 
1682 016140 
1683 O16144 
1684 016150 
1685 016154 
1686 916160 
1687 O16164 
1688 O16166 
1689 016170 
1690 016172 
1631 016174 
1692 016176 
1693 016200 
1694 O16202 
1695 016204 
1696 016210 
1697 Ol62l2 
1698 
1699 

1790 
1701 

i702 

1703 

1704 

1705 
706 

1707 016214 
1708 Olbee2 
i709 016230 
1710 

171] 016236 
1712 O16240 
i713 O16246 
1714 016250 
1715 O16e52 
1716 016256 
1717 016256 
1718 016260 
1719 O16264 
1720 016270 
1721 016274 
1722 016300 
1723 016304 
1724 016306 
1725 016310 
1726 016312 
17 Olesie 
1728 b1e320 
1730 O1632e 
i733 Blesee 
1733 016332 
1734 016334 


71008) 
O7-MAR-77 


012702 
012711 


104400 


012737 
012737 
012727 


404412 
032737 


O7-MAR-77 
ll:2l 


000001 
o0200C 


009004 


00200 


000003 


199009 
00001 
oc2d00 

4 


000004 


o020c0 


N14 





;R2 = WRITE DATA 
; SET OMO 
ARLE tara, TO SEL4 


; NTO CRAM 
;READ CRAM INTO “FOUND” 
;1S DATA CORRECT? 

BR IF OK 


;CLEAR CARRY 

;SHIFT WRITE DAT 

:BR IF_NOT DONE THIS ADDRESS 
: BUMP rer" NEXT CRAM ADDRESS 


;BR IF 
: SCOPE THIS TEST 


peeegesconbescosouceseesenss TEST 3 HHH KHRHHERKEE SER KAS HESEEES 


HROUGH EACH Cran LOCATION 


 RRRKL RRR AAR ERA RL LEER RAL EE REALE LLL A RARE RAL ASEAEL ALLA ARAL LE 


15:52 PAGE 36 
CRAM WRITE’READ TESTS 
18: MOY #1,R2 
3s: MOV #81710 (RL) 
MOV O,4(R1) 
MOV Ro’ 6(R 
BIS .#B8tT13,(R1) 
MOV. ~4(R1),R 
CMP R2,R4 
BEG 4 
ot T 
4g: SCOP1 
cL¢ 
ROL R2 
BNE 2 
INC 0 
CMP #2000, RO 
BNE 1g 
S$: SCOPE 
'*I0P CRAM WRITE/READ T 
s4CL aT AO TH 
; TEST 3 
001226 TST3: Mov #3, TSTNO 
001216 MOV #TST4, NEXT 
001220 MOV #33, LOCK 
‘ MSTCLR 
001366 BIT #BIT1S,STATI 
BEG o$ 
CLR RO 
1$: MOV #1,R2 
es: 
a COM Re 
2 MOV #BIT10, (R1) 
MOV RO,4(RL) 
MOV Re: 6(R1) 
BIS #6{T13, (R1) 
MOV 4(R1),R4 
CMP R2,R4 
BEG 4 
HLT 1 
4g: SCOP 1 
COM R2 
ELC 
ROL R2 
BNE 2¢ 
i 8 
#2000, RO 
BNE 
c$ SCOPE 


:R1 corr a Fl ee ADDRESS 


tRe = WRITE DATA 
; MAKE IT A FLOATING ZERO 
OMO 


tWRITE ADDRESS TO SEL4 
:LOAD SEL6 WITH a DATA 
;WRITE SEL6 INTO 

“READ CRAM INTO “FOUND” 
15 DATA CORRECT? 

; ERROR 

eRe TQ are ONE 

; SHIFT HRT TE DAT 


:BR IF NOT DONE fA HIS ADDRESS 
i BUNE TO NEXT CRAM ADDRESS 
;D0NE YET? 


;BR IF NO 
;SCOPE THIS TEST 


Srar @ 


ONOKDVOO OOO OOKOOOVOOOVOMOVOOVOVWOVOOOO000 200 
_— ray ~— 
o o o 


— op 
o 


ee ee ee ee se + ee ee ee Ce eS 


















2751006; O7-MAR-77 18:S2 PAGE 37 
OF-MAR-77 11:2) Ran WRITE /READ TESTS 
SELLERS REELS S ESSE ESSE SESE ES tes! Y FRSRRLREESESSA SSA FE SSS SEE SSE 
:*IOP CRAM DUAL ADDRESSING TEST 
; #HRITE EACH ADDRES S. Into ITSELF READ EACH 
feet TO VERIFY CORRECT ADORESSING 
mae Ma ML a EE ed Cas: 
; TEST 4 
012737 o00004 001226 TST4: MOV #4, TSTNO 
012737 O16516 OOlels MOV ators NEXT 
012737 916374 901220 MOV $, LOCK 
:R1 CONTAINS BASE DMC11 ADDRESS 
104412 MSTCLR :MASTER CLEAR DMC11 
032737 100000 001366 BIT #B1T1S,STATI :DOES DMC HAVE CRAM? 
001451 BEG S$ :SKIP TEST IF NO CRAM 
005000 CLR 46. «RO :RO =CRAM ADDRESS 
010002 1$: MOV RO, R2 ; SAV — Re FOR TYPEOUT 
012711 ooec00 MOV #BtT10, (RL) SET ROMO 
019061 O00004 MOV RO,4(RL) : WRITE ADDRESS TO SELY 
010061 090006 MOV RO'6(R1) LOAD SELG WITH WRITE DATA 
052711 o20000 BIS #61113, (RL) :WRITE CRA 
00506: 90900 CLR &(R CLEAR SEL "5 
016104 og0006 MOV BRL) R4 OULD READ BACK OWN ADDRESS 
020004 CMP RO,R4 Ts Opa CORRECT? 
001401 BEG 25° YES 
104001 HLT rl ‘DATA ERROR 
104401 23: SCOP1 ‘LOOP TO 1$ IF SWO9=1 
005200 INC RO !BUMP TO NEXT ADDRESS 
022700 od2000 CMP #2000, RO :DONE WRITING YET? 
001353 BNE 1$ :BR IF NO 
005000 CLR RO :RESTART AT ADDRESS 0 
012737 O164S6 oD1220 MOY #35, LOCK :NEW SCOP1 
o1oc 3S: MOY RO. Re +: {SAVE Re FOR TYPEOUT 
012. oo2000 a MOY #BiT10, (Rt) :SET ROMO 
019061 o00004 MOY aoeatht) -SELY = CRAM ADDRESS* 
016104 oo0006 n pes MOV BiR1),R4 READ CRAM INTO “FOUND” 
020004 Pe _ CMP RO,RY :IS DATA CORRECT? 
001401 tron BEQ 7B YES 
104002 HLT :DUAL ADDRESSING ERROR 
104461 4g SCOP1 : TO 3$ IF SWO9=1 
005200 NC RO :BUMP TO NEXT ADDRESS 
022700 902000 ° CMP #2000, RO :DONE WRITING YET? 
001361 BNE 3$ : NO 
104400 S$: SCOPE :SCOPE THIS TEST 


j RERERRLRAARRRESRARERSREERES TEST 5 RRR RRRRRRRAA LEAR AERA R RAE RE 
: ¥IOP CRAM READ TEST 
i THIS TEST WRITES THE CRAM WITH THE CROM MICRO-CODE MAP 
: #THEN READS IT BACK AND COMPARES EACH ADDRESS WITH THE 
seu CAT OF THE CROM MICRO-CODE. 
+ ERE R EERE RESALE SESSLER EERE RARE ARE E RE LAA SALA RERAR SEARLE RARE RS 


ee 


| C1S 
, PZoMS ACYL1 27(1008) O7-MAR-77 15:S2 PAGE 38 PAGE: 9184 
| OCOMGB. pri D7-MAR-77 il:2l CRAM WRITE/READ TESTS 
| 1792 016516 012737 oO0000S O0lec2e TSTS: MOV #5, TSTNO 
1793 016524 012737 O18836 O0i12l1E MOV 8TSTS, NEXT 
1784 016532 012727 916566 901220 MOV #15, LOCK ze 
17395 ;R1_ CONTAINS aed  Yeeen ADDRESS 
1796 O1654O 104412 MSTCLR ‘MAST ER CLEAR D 
1797 O16S42 032737 100000 OO0isSbE BIT #BIT1S,STAT1 :1S IT RAM OR RO e 
1798 616550 001431 BEQ 3$ ; SKIP y IF CROM 
| 1789 016552 005011 CLR (R1) AR RUN 
' 1800 Q165S4 004737 O35S6e JSR PC ,WROM RITE CRAM WITH MAP 
1801 016560 012700 O117&6 MOV #ROMMAP , RO : SOFT WARE POINTER TO CROM DUPLICATE 
1802 016564 9go05002 CLR Re ‘Re = CROM 
1803 016566 010261 000004 1$: MOV Re, 4(R : WRITE CROM ADDRESS TO SELY 
1804 016572 O12711 O02000 MOV MetTiD. (RL : SET CROMO 
' 1805 016576 011005 ‘ MOV (RO), RS : PUT "EX fi T ym IN RS 
1806 QO16600 016104 Od0CCDE MOV 6(R13, RY : PUT “FOUND” 4 
' 1807 O16604% d20504 CMP RS,R4 ; COMPARE HARD ROM TO SOFT DUPLICATE 
' 1808 016606 O01401 BEQ +} ;BR IF 
1809 016610 104003 HLT 3 : CRAM READ ERROR! 
1810 Ql66le 005011 es: CLR (R1) :CLR BIT10 
1811 016614 005061 d00006 CLR 6iR1) : CLEAR SEL6 
18le 018620 !04401 SCOP1 LOOP TO 1$ IF SWO9=1 
1813 Ol6be2e O0S2e02 :T NC TO NEXT CROM ADDRESS 
1814 Ol66e4% 005720 TST (RO)+ : POP RO BY 2 
1815 Ol66e6 Oe2e70e 002008 CMP #2000,Re : DONE 1K YET? 
' 1816 Ol663e 001355 BNE 1 :BR IF NO 
! 14 016634 104400 28: SCOPE : SCOPE THIS TEST 
! 1815 
| 1820 ; ERREAREA RRA RHRRREREREREERES TEST & SRE RRERRARAK KALE E ELA EAE SS 
| 18¢] -*I0P MAIN MEMORY TEST 
/ [B22 :#FLO8T A 1 THROUGH ALL MAIN MEMORY LOCATIONS 
tesa + REKRKSERRRAARAA RARER LALA AS ALAA KA RAL LARA ARAL EAAARERALAAARAARAEE 
1825 ; TEST 6 
| es aig Tae cee OE eee: 
1627 Ol16636 012737 001226 TSTé: Mov TNO 
1828 O16644 012737 ci 724 001216 MOV Mite NEXT 
1829 Ol66S2 012737 Ol670e O01220 MOV #65$, LOCK 
1830 :R1 CONTAINS BASE DMC11 ADDRESS 
1831 O16660 10441 MSTCLR MASTER CLEAR DMC11 
1832 Ql6662 032737 100000 O01366 BIT #BIT1S,STAT1 :1S THIS AN IOP? 
1832 tee Lies BEQ es ;SKIP_TEST IF NO 
18634 1667, 7 O34664 CILR FLAG ; START oy BG ADDRESS 0 
1835 166 Ole? ttre, 1$: MOV #1,R0 : START wrt H BIT 0 
18 0167 04273 02 016734 6S$: BIC #377, 66S LEAR ADDRESS FIELD OF INSTRUCTION 
1837 016710 O42737 000003 016740 BIC #3,68S ; CLEAR abshese FIELD OF INSTRUCTION 
1838 1p? 48 33737 O34664 016734 BISB FLAG, 66$ -ADD ADDR hate TO INSTRUCTION 
1839 0167 .$3737 O346ES OLE74O BISB FLAG+1, 68S ; ADD ADDRESS TO INSTRUCTION 
1840 Hed 104414 ROMCLK -NEXT WORD IS IN vy ead ROMCLK PC=S394 
1841 Q1 hn 010000 6éS: 010000 LOAD MAR LO WITH ADDRESS IN FLAG 
1842 0167 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
1843 sta 004000 68$: 004000 :LOA MAR HI 
1e44 16742 010061 900004 MOV RO,4Y(R1) : WRITE PATTERN IN PORTY 
1845S steees Ocha ROMCLK NEXT WORD is INSTRUCTION, ROMCLK PC=S3C4 
1e46 1675 le2s 122500 : MOVE PORT4Y TO MEMOR 
1847 Clé7Se 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
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MACYLL 27(1LOO0&) O7-MAR-77 15:52 PAGE 39 
¥ O7-MAR-77 11:2! IOP TEST 

040620 040620 ;MOVE MEMORY TO BR 
104414 ROMCLK : NEXT T WORD IS INSTRUCTION, ROMCLK ©C=S2C4 
061225 61225 ‘MOVE BR TO PO 
010005 = MOV RO.RS : PUT EXPECTED" In RS 
116194 oocoos MOVB = SR), RY :PUT “FOUND” 
120504 CMPB. sR. RY ‘DATA CORRECT? 
00140: BEG 67¢ ‘BR IF YES 
104010 : HLT 10 :DATA ERROR 
10440! $78: SCOP1 ; SW 09=1? 
000241 ELC CLEAR CAR 
106100 ROLE RO : SHIFT St IN RO 
001336 BNE 6S$ :DONE IF RO=0 
005237 O34664 _ INC FLAG “NEXT ADDRESS 
022737 202099 c24664 CMP #2000, FLAG ‘LAST ADDRESS? 
001326 . BNE 1$ : F NO 
10449¢ 23: SCOPE :SCOPE THIS TEST 

an ae ae TEST 7 4X4XEHHELESERASELER ESLER ALES 

:x10P MAIN MEMORY TEST 

FLOAT A O THROUGH ALL MAIN MEMORY LOCATIONS 
SAASEASESAASURAGESSEROSESSOSATORDERASORSGDZUSOORUREREORONSERG 

: TEST 7 
012737 o00007 o01226 TST7: MOV 
912737 017216 OO12l6 MOV wreriO. NEXT 
012737 O17072 001220 MOV #65, LOCK 4 

RI CONTAINS BASE DMC11 ADDRESS 

104412 MSTCLR : MASTER CLEAR DMC11 
032737 100000 001366 BIT #BIT1S,STATI 1S THIS A N IOP? 
001456 BEQ 2$ :SKIP TEST IF NO 
005037 O34664 CLR FLAG : START WITH RODRESS 0 
012700 000001 1S: MOV #1,RO :START WITH 
005100 64S: COM RO : CHANGE 19 FLOAT ING O 
042737 000377 017124 655: BIC #377 66S LEAR ADDRESS FIELC OF INSTRUCTION 
042737 000003 017130 BIC #3, 68% ; CLEAR abprese FIELD OF INSTRUCTION 
153727 034664 017124 BISB FLAG. 6&$ -ADD ADDR ESS TO INSTRUCTION 
153737 O34665 917130 BISB FLAG+1. 68 ADD ADDRESS TO INSTRUCTION 
104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
010000 6S: 010000 -LOAD MAR LO WITH ADDRESS IN FLAG 
104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
004000 8: Go4o00 :LOAD MAR HI 
010061 900004 MOV RO.4(R1) ; WRITE PATTERN IN PORT 
104414 ROMCLK “NEXT WORD I$ INSTRUCT oN, ROMCLK PC=5304 
122500 122500 i MOVE PORTY TO MEM 
104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
040620 040620 *MOVE MEMORY TO- BR 
1C4414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S5394 
061225 61225 :MOVE BR TO PORTS 
010005 ; RG,RS :PUT “EXPECTED” IN RS 
116104 og0905 MOVB  5(R1),R4 :PUT "FOUND" IN RY 
120504 CMPB sR’, R4 ;DRTA CORRECT? 
001401 BEG $ R IF YES 
104010 HLT 10 spare ERROR 
104401 b7$: SCOP! SWO9=1? 
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O7-MAR-77 15:52 PAGE 40 
11:21 IOP TEST tal 
COM RC “CHANGE TO FLOATING i 
CLC :CLEAR CARRY 
ROLE RO :SHIFT BIT IN RO 
} BNE b4$ ;DONE IF RO=0 
O34664 INC FLAG :NEXT ADDRESS 
o02000 934664 CMP #2000, FLAG :LAST ADDRESS? 
‘ BNE 1$ :BR IF NO 
23: SCOPE :SCOPE THIS TEST 
s RERRRRRRERERARRERRERRRKAKEE TEST 10 SHRRREREAAAAAEREAA ASAE LASSE 
:#10P MAIN MEMORY DUAL ADDRESSING TEST a 
:#LOAD EACH MEMORY LOCATION WITH ITS OWN ADDRESS 
: #READ BACK EACH LOCATION TO VERIFY CORRECT ADDRESSING 
s SRK AAA AA AALAE LAA LALA LALA LA EAA AAA AAA AERA A AAALAAALAEFEAALF LAS 
; TEST 10 
900010 001226 TST19: MOV TSTNO 
017516 O0l2s MOV ret NEXT 
017258 OO0le20 MOV $, LOCK 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR “MASTER CLEAR OMC11 
100000 001366 BIT #BIT15,STATL 15 THIS AN 
BEG 95 :SKIP TEST IF NO 
034664 CLR LAG : START RT ADDRESS 0 
034664 1S: MOV FLAG, R2 :PUT DATA IN Re F 
000377 017314 BIC #377. 2S :CLEAR ADDRESS FIELD OF INSTRUCTION 
000003 017320 BIC #3 is ; CLEAR ADDRESS FIELD OF INSTRUCTION 
034664 017314 8158 FLAG “ADD ADDRESS TO INSTRUCTION 
O34665 017320 RISB FLaghio? :ADD ADDRESS TO INSTRUCTION 
ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2$: 019000 :LOAD MAR LO 
ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
7$ 004000 :LOAD MAR HI 
oo0004 OV R2,4(R1) 
ROMCLK SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122500 :MOVE PORTY TO MEMORY ness 
ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
o40620 “MOVE MEMORY TO THE BR 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61225 :MOV BR TO PORTS 
MOV R2,RS ;PUT “EXPECTED” IN RS 
oooocs MOVB i :PUT “FOUND” IN 
CMPB RY ;DATA CORRECT? 
BEQ F YES 
HLT 10 DATA ERROR 
38: SCOP : SWO9= 
034664 INC FLAG ; NEXT ADDRESS 
002000 O34664 CMP #2000, FLAG LAST ADDRESS 
BNE 1$ NO 
017406 o01220 Mov 84S, LOCK NEW SCOPE 1 
034664 CLR FLAG jRESTART AT ADDRESS 2 
O34664 4S: MOV FLAG, Re PUT DATA IN Re 
000377 oO17444 BIC #377 ‘CLEAR ADDRESS FIELD OF INSTRUCTION 
909093 917450 BIC #3, A 





;CLEAR ADDRESS FIELD OF INSTRUCTION 
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27(1006) O7-MAR-77 18:52 PAGE 41 PAGE: 
as ] 


OF-MAR-77 11:22 oP TEST 
153737 o34664 O17444 BISe FLAG, S$ :ADD ADDRESS 9 INSTRUCTION 
153737 924665 OL74SC BISe =.= FLAG4+1, 8% ADD FODRESS TC INSTRUCTION 
104414 ROMCLK ;NEXT WORD 1S INSTRUCTION, ROMCLK PC=5204 
o1ceco cs 9198909 ‘LOAD THE MAR LO 
104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
004000 g$: oo4o0c -LOAD MA 
104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
040620 940620 : MO OVE MEMORY TO 
104414 ROMCLK “NEXT WORD IS NS TOUETION ROMCLK PC=S204 
061225 $1225 :MOV BR TO PORTS 
010205 MOV R2.RS :PUT “EXPECTED” IN RS 
116104 900905 MOVB  5(R1),R4 :PUT FOUND” IN R 
120504 CMPB =—saR'S_, R4 ;DATA CORRECT? 
001491 BEQ 6$ YES 
104010 HLT 10 : BODRESSING ERROR 
10440) , &$: SCOP WO9=1 
005237 C34664 TNC FLA ‘NEXT ADDRESS 
0227327 O0e00c 2246é4 CMe 1000, FLAG :19 IT THE LAST 
001335 BNE 43 IF NO 
104400 $$: SCOPE SCOPE THIS TEST 
emi TEST Ll RHE ARRAAERSFA RE SSR ESE SS SSE 
*% 
:¥PERFORM DUAL ADDRESSING TEST 
Fete MAR AUTO-INC FEATURE 
s KRKKAKEESA RAL HLF SAE REE LARA RERA SLA AA LARARA FARA LLARAARELEFFRFREE 
; TEST 11 
012737 000011 001226 TST1li: Mov #11, TSTNO 
012737 017632 OOlzZie MOV #TST12, NEXT 
:R1 CONTAINS BASE DMC1i ADDRESS 
104412 MSTCLR ;MASTER CLEAR DMC11 
032737 100000 O013t& BIT #BITIS,STATI :IS THIS AN IOP? 
001432 BEQ 4$ :SKIP TEST If N : 
o05002 CLR Re ;START WITH A ZERO ee 
104414 ROMCLK : NEXT WORD | 1S INSTRUCTION, ROMCLK PC=5204 
019000 019000 :LOAD MAR A ZER0 
010261 9c0cc4 1$: MOV R2,4(R1) ‘WRITE BETA 10 PORTY ! 
104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
136500 136500 :MEM*PORT4, AUTO-INC MAR 
005202 INC Fe ; INCREMENT DATA 
022702 ooecce CMP #2000, R2 :DON — YET? 
001370 BNE 1$ -8% IF NO 
ooso02 CLR Re ‘RESTART WITH A ZERO 
104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
010000 a 010009 ‘LOAD MAR WITH A ZERO 
E93: 
104414 ROMCLK ;NEXT WORD_ Is INSTRUCTION, ROMCLK PC=5394 
oss224 oss2e4 ?MOVE MEM TO PORT 
010205 MOV R2,RS -PUT "6 ECTED™ rN RS 
016194 9o0oc4 MOV 4CR1),RY :PUT “FOUND” IN RY 
120504 CHPB =o RS, RY ‘DATA CORRECT? 
051401 BEQ 33 -BR IF YES 


E16 104011 HLT ll MAR ERROR 
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Re 
CMP 82000,,Re 
BNE es 
SCOPE 


; RERERLAAEAER ERE RERERELERERE TEST 

: #108 (CRAM) er n't 
#LOAD MAR WITH A 0 

t SVERIFY THAT IBUS# 10 BITS IS S 

:#AND THAT IBUS* 10 BITS IS 


;NEXT SODRESS 

: DONE YET? 

:8R IF NO = 
; SCOPE THIS TEST 


LO RHERERSLELLELA LA ASL SLE LS SFE 


TEST 
INC MAR UNTIL_IT egg ceo TIMES) 


ET ONLY WHEN R BIT 8 IS A ONE 
SET ON MAR OVERFLOW. 209C 


23 PPPETEUETTTPOSETTESECSTTSTOCTT TEST ESET TOUTS ETTeTTTTETT TTT eT Te 


Mov #12, TSTNC 
MOV #TSt13 NEXT 
MOV $1$,LO2K 


CLR Re 
ROMCLK 
010000 


ROMCLK 
t2i204 


RS 
BIT #BIT8,Re 
+ 


IN Re 
CMP tinea 
CLR LOCK 


#BITE,RS 


no4eos 


#BITiS,STAT) 
2s 


——_—-—— —-  — - 


;R1_ CONTAINS BASE DMv1i ADORESS 
:MASTER CLEAR DMC11 
:1S THIS AN IOP? 


i SKIP ele IF NO 
R2=SAME AS MAR CONTENTS 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PORTY=IBUS* 10 

;RS="EXPEC ED" 

iIS ye SET IN MAR? 


NO 
IF YES THEN SET BITS 
"F OUND” 


;R4=" 
:CEERR UNWANTED BITS 
4) SHOULD BE CLEAR 


K 
SERROR BITS 586 NOT CLEAR 
;LOOP TO 11$ IF SWO9=1 
; NEXT WORD IS INSTRUCTION, 


NC _M 
BUMP MEM ADDRESS 
:OVERFLOWED YET? 


ROMCLK PC=S304 


NO 
;NO MORE SCOP1 
;NEXT WORD IS VANSTRUCT TION, ROMCLK PC=5304 


; PART4+ IBUS# 
‘CLEAR UNWANTED BITS 
38176, SHOULD BE SET 


;BR 
:ERROR, BIT& NOT SET 
iNEX XT WORD IS INSTRUCTION, ROMCLK PC=S304 


iNET won IS INSTRUCTION, ROMCLK PC=S304 


T2DMS 0 OMACYLL 2701008) C7-MAR-77 15:52 PAGE 43 PAGE: Sie 
| SIOMGE.PLL OF=MAR-7? Ll:2! IOP TEST 
2072 Oe0dl2 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLY Sc=S204 
2972 929014 121204 121204 :PORTH+IBUS# 10 
O74 020016 o0s0cs CL ;RE="EXPECTED™ 
2075 920020 916104 ococco4 MOV 4(R1) Say » R4="F OUND” 
2076 O20024 O4e704 177627 BIC a>? 637 sLEEGR UNWANTED BITS 
2077 020030 Oe0S04 CMP RS R4 ;BITS 586 SHOULD BE CLEAR 
2078 O20032 O0:401 BEQ +4 ’ IF 
2073 020034 194007 HLT ? TERROR ose NOT BOTH CLEAR 
2080 92003 10440C 2g: SCOPE :SCOPE THIS TEST 
a : 
2083 5 SHARE KAHLER LARA LAAAALERRLEE TEST 13 RELSRERFAARSLARELELERALSERE 
2984 , :#CROM READ TEST 
2085 -*THIS TEST READS EACH ROM LOCATION AND COMPARES 
2986 :*IT TO A SO FTWARE DUPLICATE OF THE CROM. THIS TEST 
2087 :#ALSO TESTS THE TUMP(I) MISRO-PROCESSOR INSTRUCTION. 
Spee POTTTETeeTETETeTTTST CTC TTSTSTTE TCS TTSTT ESET OTICET ETT TTT eee 
e 
soae ; TEST 13 
Pe ee ee ee a ke er ee ke. 
2092 C20040 912737 0000!3 o0l1226 TST13: Mov #12, TSTNO 
2993 O20046 012737 920230 o21216 MOV #TST14. NEXT 
2094 O200S4 O:2737 Oeoide 601220 MOV 813, LOCK 
2095 RI CONTAINS | BASE DMC11 ADDRESS 
2996 O20062 104412 MSTCLR :MASTER CLEAR DMC11 
2097 020084 032737 100090 9013t& BIT #BITIS.STATI :IS IT RAM OR ROM 
2098 020072 doloss BNE 4¢ :SKIP TEST IF CRAM 
2099 020874 9050/1 CL (R1) :CLEAR RUN 
2199-0e0076 012700 O1176E MOW sROMMAP , RO :RO POINTS TO SOFTWARE ROM MAP 
21C1 O20102 905002 CLR Re ;Re CONTAINS ROM ADDRESS BITS 
2102 Oe0104 0o05003 CLR R3 !R3 CONTAINS ROM ADDRESS BITS oe IN BITS 11812 
2193 020106 042737 (14377 O20126 18: BIC #14277 2S : CLEAR ADDRESS FIELDS OF INSTRUCTION 
2104 020114 050237 O20126 BIS RP, 2 :ADD BITS O-7 TO INSTRUCTION 
2105 020120 050337 dedies BIS R3,2$ ‘ADD BITS 11812 10 INSTRUCTION 
21068 020124 104414 .  ROMCLK "NEXT WORD IS INSTRUCTION ROMCLK po=5304 
2197 Oe0126 id0o040c 2g: » 100400 :JUMP(I) TO ROM ADDRESS IN Re & RB 
2108 020130 012711 od2000 MOV #BIT1O, (R1) :SET ROMO 
21039 020134 911005 MOV (RO) RS ;PUT “EXPECTED” IN RS 
2110 O20136 016194 ooD006 MOV B(R13,RY4 :PUT "FOUND" IN R 
2ill O2014e de0S04 CMP RS ,R4 ; COMPARE ROM CONTENTS TO SOFT DUP 
2il2 020144 OO1414 BEQ 3$ F 
2113 020146 010337 oo1ese2 MOV R3, TEMP3 ‘PUT ROM ADDRESS IN TEMP3 
2114 O201S2 O0024i CLC "FOR ERROR TYPEOUT 
2115 920154 006037 Odlese ROR TEMP3 
2116 O20160 006037 901252 ROR TEMP3 
2117 O20i64 006037 961252 ROR TEMP3 
2118 020170 050237 Oo0iesz BIS Re, TEMP2 :TEMP3 NOW CONTAINS CORRECT ADDRESS 
2119 020174 104004 HLT 4 :ROM READ ERR 
2120 020176 104401 3s: SCOP! ‘LOOP TO 1$ IF SWO9=1 
2iel Oe0e00 005720 TST (RQ)+ “BUMP SOFT POINTER 
elee Oe0e02 o0S20e2 INC RE ; BUMP ROM ADDRESS 
2123 O20204 022702 oo0400 CMP #400, Re -IS Re TO MAX YET? 
2124 C20210 001336 BNE 1$ :BR IF NO 
2125 Oe0el2e ooso0e CLR Re :YES, RESET Re 10 0 
2126 020214 062703 coxc00 ADD #4000, R3 :INC’ TO NEXT PAGE OF ROM 
2127 Oe0220 O22703 sec0st CMP #20006, R2 :DONE YET? 
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MACY11 27° 1008) O7-MAR-77 15:52 PAGE 44 Pace: 9.30 
ai O7-MAR<77 11:2) CROM READ TESTS 

O2e0224 001330 BNE 1g :BR IF NO 

20226 104400 / 4§: SCOPE ;SCOPE THIS TEST 


; RRRRRARAA EER ERERERRERREEELE TEST 14 kee eRRRRES EERE EERE REL ASSES 
7*CROM TEST OF JUMP(I) NEVER MICRO-PROCESSOR INSTRUCTION. 
;*PERFORM THE JUMP INSTRUCTION 

;*VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

;*THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT 8Y ONE). 

Er iritttitt tii titiitiiitiireriritiictiiiiitiicccrslreeerres) 


s Test 1% 

020230 012737 000014 o01225 TST14: MOV #14, TSTNO 
020236 015737 de04e0 O0le16 MOV #TSt15 NEXT 
O20244 012737 O20264 001220 MoV #1$, LOCK 3 

:R1 CONTAINS BASE DMC11 ADDRESS 
O20252 104412 MSTCLR :MASTER CLEAR DMC11 
020254 032737 100000 001366 BIT #BITIS,STAT1  :IS IT CRAM? 
Gedebe 007055 : a BNE 6$+2 :SKIP TEST IF YES 
020264 004737 o354:0 JSR PC, CLRALL :CLEAR ALL CONDITIONS ; 
020270 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
Q2027e id0490 CS 100400 :START AT ROM PC=0 oat 
920274 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
O20276 114377 114377! <400#0> ‘JUMP TO ROM PC OF 17 
020300 004737 o25502 JSR PC, ROMDAT :RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
920304 909002 2 :IN 

06 oOe0so4 CMP RS,R4Y "ARE NEW PC CONTENTS CORRECT? 

020310 001401 BEG 2g :BR IF YES 
020312 104006 HLT 6 !ERROR, CROM PC IS WRONG 
020314 104401 2S: SCOP1 :LOOP fo 1$ IF SWO9=1 
020316 012737 020324 001220 me MOV #2$, LOCK :NEW SCOP1 
020324 004737 9035410 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
620330 104414 ROMCLK ?NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
920332 190403 100403 :START AT ROM PC= r 
020334 104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
020336 100000 100000!<400*0> ;JUMP TO’ROM PC OF P 
020340 004737 o2ss0e SR PC, ROMDAT :RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
029344 o00010 i : INDEX 
020346 020504 CMP RS>R4Y :ARE NEW PC CONTENTS CORRECT? 
020350 001401 BEG 4g ‘BR IF YES 
920352 104006 HLT 6 !ERROR, CROM PC IS WRONG 
020354 104401 4g: SCOP :LOOP to 3$ IF SWO9=1 “ 
020356 012737 020364 901220 te MOV #5$, LOCK :NEW SCOP1 - 
020364 004737 O354:0 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
020370 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
020372 100406 100406 :START AT ROM PC=6 
020374 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
020376 104125 104125! <400%0> JUMP TO ROM PC OF S25 
020400 004737 o2ss5c2 JSR PC, ROMDAT !RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
020404 OOO01E 16 : INDEX ; EA. 
020406 o20504 CMP RS.R4 : ARE NEW_RON PO CONTENTS CORRECT? 

:BR YES 


020410 001401 ’ PEG 6$ ;BR I 





Jis | 
pooms MACYL! 27( 1006) O7-MAR-77 15:52 PAGE 45 PAGE: 919: 
ES5m5B.81!  OF-MAR-7? 11:2) CROM JUMP TESTS 

2184 se04ie 104008 HLT 6 :ERROR, CROM PC IS WRONG 

2185 025414 1944C1 és: SCOP1 Loop fo S$ IF SW59=1 

2186 SSauie Loa4ee SCOPE ESOPE THIS TEST 

2187 

2188 

2185 s RRRRRERRRER SRR RRR SRLS TEST 1S poreeaen getencteen eenens 
2190 :*CROM TEST OF JUMP(I) ALWAYS MICRO-PROCESSOR INSTRUCTIC 
2191 : PERFORM THE JUMP INSTRUCTION 

2192 ;#VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

St s REKRSRLELAE AAA RA ALA RSA ALLA AAAS AA LA LALA FAAS AALAALATRALALFEALSAF ASF 
e135 ; TEST 15 

rd tt ete ee ee 

2197 920420 012727 900015 oOCiezt TST1S: MOV #15, TSTNO 

2198 O20426 012737 520574 o01216 MOV trate NEXT 

2199 020434 012737 d2e04s4 001220 MOV #15, LOCK a 

2200 if CONTAINS BASE DMC11 ADRESS 

2201 o2044e 104412 MSTCLR ;MASTER CLEAR OMC11 

2292 OP0444 032737 100000 o013&6 BIT #BIT1S,STATI M? 

2203 O204S2 OC:047 BNE &$+2 :SKIP TEST IF YES 

2204 d20454 18: 

2205 o20454 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2206 Oe045e 100400 100400 :START AT ROM PC=0 
2297 Of0460 104414 ROMCLK =NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2208 ODeO4Ge 114777 114377! <4C0%1> : JUMP TO ROM 

2209 Oe0464 004737 o25502 JSR PC ROMDAT ;RS= EXPECTED ROM DATA.RY=ACTUAL ROM DATA 
2210 020470 003776 3776 NDEX 

2211 020472 929504 CMP RS.RY t ARE NEW PC CONTENTS CORRECT? 

2212 O20474 001401 BEG 23 Y 

2213 OP0476 104006 HLT 6 ; ERROR CROM PC IS WRONG 

2214 O20S00 104401 2: SCOP1 i LOOP. to F SWO9=1 

221S Oe0S02 012737 o20510 of1ze0 - MOV #3, LOCK 'NEW S 

2216 020510 38: 

22!7 O20510 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
eeig 020512 100402 190403 ; START AT ROM PC=3 

2219 020514 104414 ROMCLK x, :NEXT_WORD IS INSTRUCTION, ROMCLK PC=5304 
2220 Oe0Sig 100400 e 100000! <400%1> - JUMP Te ROM FC OF O 

2eel O20520 904737 o2assce JSR PC ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2222 020524 g00000 0 D 

2223 020526 d20so4 CMP RS,RY BRE NEW PC CONTENTS CORRECT? 

2ee4 020530 001401 BEQ 4§ R IF YES 

2225 O20532e 104006 HLT & ERROR CROM Pc 1S WRONG 

2226 020534 104401 4$: SCOP1 LOOP Po. 331 F SWO9=! 

2227 020536 012727 o20S44 o01220 MOV #5, LOCK :NEW SCO 

2228 020544 cs: 

2229 020544 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
2230 Of0S546 10040 10040 :START AT ROM PC=6 

2221 O20550 104414 ROMCLK NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
2232 Oe0sse 104Se5 104125! <4O0#1> : JUMP TO ROM PC a 
2233 020554 004737 ozssoz ISR PC. ROMDAT :RS=EXPECTED ROM para, RY=ACTUAL ROM DATA 
2234 020560 O01e5e2 - 1252 : INDEX 

2235 O20Sbe o20S04 CMP RS,RY ; ARE NEW ROM PC CONTENTS CORRECT? 

223% 020564 001401 BEG 6$ YE 

2237 Oe0S66 104006 HLT 6 i ERROR CRON Pc 1S WRONG 

2238 020570 104401 ts: SCOP1 P to S$ IF SW59=1 


e233 Ce0S7e 104400 SCOPE SCOPE THIS TEST 





020610 


020616 
020620 
020626 


0 
0207&2 


012737 
012737 
012737 


104412 
032737 
001055 


104401 
012737 


004737 


012737 


004737 
104414 


194401 
104400 


oeeuee 


OO0C1E 
020764 
020630 


100606 


020670 
035456 


035502 


020739 
O3S45E 


035502 


00122 


PAGE 4¢ 
CROM JUMP TESTS 


TST1LE: 


18: 


38: 


4$: 
53: 


63: 


s RRRARERSA SSR RRR RARE RRSRRERE TEST 16 Boceeeonessrestssercorrsess 
: #CROM TEST OF JUMP(I) ON C BIT SET 1 ps man CESSOR INSTRUCTIGCN. 
:¥SET THE C BIT, PERFORM THE JUMP INSTR ION 

; VERIFY THE JUMP BY READING THE cANTENTE. OF THE NEW ROM PC 
STETUTTTESTTTETTTCTETETTESTTETETOTSTETCCT ST TSC TTSU CES Tee ee Tee 


; YEST 16 


Mov #16, TSTNC 
MOV atti? N NEXT 


MOV #13, | 
RI CONTAINS. BASE MCL ADDRESS 

MSTCLR : MAS TER CLEGR DMC 

BIT #BITIS,STOT! :1S 

SNE 6$+2 ree ret TF YES 

JSR PC,SETC ;SET THE C BIT’ 

ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

100490 :START AT ROM PC= 

ROMCLK :NEXT WORD 15 INSTRUCTION, ROMCLK PC=5304 

114377! <4O0#2> : JUMP TO ROM P F i272 

IR PC, ROMDAT R =EXPECTED ROM” DATA,RY=ACTUAL ROM DATA 

CHP Rs ,R4 ‘ARE NEW PC CONTENTS CORRECT? 

HLT & :ERROR CROM PC. IS WRONG 

SCOP1 Pt. SWwO9=1 

MOV #2, LOCK ‘Kew 

ISR PC,SETC ;SET THE C BIT’ 

ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

100403 ; START AT 


ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
100000!<4O0*2> ; JUMP TO’ROM PC OF 
JSR Pc ,ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM CATA 


9 : INDEX 
CMP R5.R4 !ARE NEW PC CONTENTS CORRECT? 

BE 4§ :BR IF YES 

HLT & : ERROR CRON PC. IS WRONG 

SCOP1 Po 3 SWO9=1 

MOV #5$, LOCK ‘REN 

ISR PC,SETC ;SET THE C BIT’ 

ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 
100408 :START AT 

ROMCLK : NEXT waRO™ 1S INSTRUCTION, ROMCLK PC=5304 
104125! <4O0#2> ‘JU MP TO ROM P 

ISR PC ,ROMDAT ?RS=EXPECTED ROM DATA,RY=ACTUAL RCM DAT 
CHP Rg. RY ARE NE ROM PC CONTENTS CORRECT? 

HL 6 ERROR ROM PC IS WRONG 

SCOP 1 P fo S$ IF SW59=1 

SCOPE OOP E THIS test 





oe ee es -— mm ee ee 


MACY11 27° 1008) O7-MAR-77 15:52 PAGE 47 PAGE: 0192 
t! SmAR-7? 11:2] CROM SUMP TESTS 
s RERAARAAAHSSRARERARRERRERERES TEST 17 RRRRKRRRREARERES RASS RSE REESE 
:*#CROM TEST OF JUMP(I) ON Z BIT SET MICRO- PROCESSOR INSTRUCTION. 
-*SET THE 2 BIT, PERFORM THE JUMP INSTRUCT 
sAVERIY THE JUMP BY READING THE CONTENTS OF “tue NEW ROM PC 
s SLSHLALAASRRAARHA RELA LALLA LA RELL LALLA AA AAA AAERELLAA LAL FLL ELAS FS 
; TEST 17 
020764 012737 c00017 O012e6 TST17: Mov #17, TSTNO 
020772 012737 921154 901216 MOV #TSt20, NEXT 
021000 012737 O21020 O01220 MOV #13, LOCK “ 
:R1 CONTAINS BASE DMC11 ADDRESS 
021008 id4412 MSTCLR : MASTER CLEAR DMC11 
021010 022737 100000 O0136& BIT #BI1T1S,STOT! :1S IT CRAM? 
021016 051055 - BNE 6$+2 :SKIP TEST IF YES 
021020 004737 O35474 JSR PC,SETZ ;SET THE 2 BIT’ 
021024 104414 ROMCLK : NEXT WQRO IS INSTRUCTION, ROMCLK PC=5304 
021026 100400 100400 :START AT ROM PC= 
021030 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
021032 115777 114377! <400*3> TO ROM PC OF 1777 
021034 004737 o35502 JSR PC ,ROMDAT 'R5= EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
021040 003776 3776 : INDEX 
O21042 920504 CMP RS,R4 ; ARE NEW PO CONTENTS CORRECT? 
021044 901401 BEQ 2$ YES 
021046 104006 HLT 6 : ERROR CROM PC IS WRONG 
021050 104401 23: SCOP LOOP tor F SWO9=1 
02105e 012737 o21060 o01220 Mi MOV #3$, LOCK NEW W SCO 
021060 004737 035474 ISR PC,3ETZ ;SET THE Z BIT’ 
021064 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021066 100403 100403 iSTART 8 TR 
021070 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021072 101400 100000!<400%3> ;JUMP TO'ROM PC OF 
021074 004737 o3ss02 ISR PC, ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
o20504 CMP RS,R4 ‘ARE NEW PC CONTENTS CORRECT? 
021104 001401 BEQ 4§ YES 
021106 104006 HLT 6 ERROR CROM Pc IS WRONG 
021110 104401 4g: SCOP . *L Pio. $$ 1 F SWO9=1 
Delile 012737 021120 op1220 ta MOV #5$, LOCK Rew SCO 
021120 004737 935474 ISR PC,SETZ ;SET THE Z BIT" 
0211204 104414 ROMCLK :NEXT WORD 1S INSTRUCTION, ROMCLK PC=5204 
021126 100406 100406 :START AT 
021130 104414 ROMCLK :NEXT WORD ts INSTRUCTION, ROMCLK PC=S304 
021132 105Se5 104125! <400*3> : JUMP TO ROM PC OF 7s 
021134 004737 o3SS02 ISR PC, ROMDAT :RS=EXPECTED ROM DATA,RY=ACTUAL ROM DAT 
021140 O01eSe 1252 : INDEX 
021142 o20sS04 CMP RS,RY ; ARE NEW ROM PC CONTENTS CORRECT? 
021144 001401 BEO 6$ YES 
021146 104006 HLT 6 i ERROR CRON pC IS WRONG 
021150 10440) éS: SCOP1 P to S$ IF SWS9=1 


G21iS2 104400 ; SCOPE ‘SCOPE THIS TEST 
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CROM JUMP TESTS 


TST20: 


1$: 


3$: 


4$: 
S$: 


6$: 


M15 


s RHRARKHRSERAREKESRERREREREE TEST 20 lab bobbbbbbb-tb-th-t-Sh-L tela 
5 CRON TEST OF JUMP(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION. 
PERFORM THE JUMP INSTRUCTION 


;*#SET THE BRO BIT, 


s#VERIEY THE JUMP’BY READING THE CONTENTS OF THE NEW ROM PC 
5 HEHEHE HEHEHE HE EEE EH REE EER REE A ARE EERE EE EEE EAE EE REESE 


; TEST 20 


hov #20, TST 
MO 


NO 
ieotar ,NEXT 


V 
MOV ~ #1$, LOotk 


BNE 
JSR PC, SETBRO 


100400 
ROMCLK 
114377! <4O0#4> 
ISR PC, ROMDAT 
3776 
CMP RS,RY 
BEQ es 
HLT : 
SCOP1 
ov #33, LOCK 
cR PC, SETBRO 
ROMCLK 
100403 
ROMCLK 
100000! <400*4> 
JSR PC, ROMDAT 
CMP RS,R4Y 
BEQ 4g 
HLT 6 
SCOP1 
MOV #5$, LOCK 


JSR PC, SETBRO 


ROM 
TOWT3S! <4OoK4> 
JSR PC ,ROMDAT 
CMP RS,R4 

6$ 


—— eee ee ee Se ee 


#BIT1S,STAT1 
6$+2 


3R1 CONTAINS BASE DMC11 ADDRESS 
MASTER ee AR OMC11 

:1S_IT_CRAM 

SKIP TEST IF YES 


;SET_THE BRO BIT’ 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
:START AT ROM PC= 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; JUMP TO ROM PC OF 1777 

SRS AEXPECTED ROM DATA,RY=ACTUAL ROM DATA 
; ARE yey ee CONTENTS CORRECT? 


TERROR CROM PC IS WRONG 
‘LOOP fo 1$ IF SWO9=1 


: NEW ScoPl 


;SET_ THE BRO BIT’ 
;NEXT_WORD 3 Nach ROMCLK PC=S304 
j START AT ROM 

WORD IS INSTRUCTION, ROMCLK PC=5304 


;NEXT 
- JUMP TO’ROM PC OF 0 


;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 


ane NEW PC CONTENTS CORRECT? 


Y 
: ERROR CRON PC IS WRONG 
iL oOr P to os 1 F SWO9=1 


;SET_THE BRO BIT’ 
Aan we IS sre TRU TION, ROMCLK PC=5304 
py WORD" 15, INSTRUCTION, ROMCLK PC=S5304 


iJ TO R 

sROSEXPECTED ROM DATA,RY=ACTUAL ROM DATA 
; ARE te ROM PC CONTENTS CORRECT? 
jERROR “ie > m: A, WRONG 


Pp tos 
Oop E fue test 











i 
(O20MS MACYI1 2761006) OT-MAR-77 15:52 PAGE 49 Page: 
| ESEnde. Pll OP-MAR-77 11:21 CROM JUMP TESTS 
2408 
2409 ‘ 
2415 5 RRRAARRARERAAAE RA AREAAEARKKE TEST POUT ects ttt i rst tt ittitttttete 
241] :*CROM TEST OF JUMP‘I) ON BRI SET MICRO-PROCESSOR INSTRUCTION. 
2412 :#SET THE BR1 BIT, PERFORM THE JUMP INSTRUCTION 
2413 sEVERIFY THE JUMP’BY READING THE CONTENTS OF THE NEW ROM PC 
sie © REL K KL RK GEEK KAK KL F RE KEK ALEK AL AL RL AL AK ARAL RSE LALA SASS AES S SESE 
4] 
e4ig ; TEST 21 
2418 021344 012737 000021 O0l12c6 TST21: MOV TNO 
2419 021352 012737 921534 O0le2i6 MOV vel433 NEXT 
2420 021360 012737 021400 001220 MOV #15, LOCK 
2421 -R1 CONTAINS. BASE DMC LI ADDRESS 
e422 021366 104412 MSTCLR "MASTER C LEAR DMC 
e423 021370 032737 100000 001366 BIT #B1T15,STOT1 1S IT 
2424 021376 O0105S BNE b$+2 :SKIP TEST IF YES . 
2425 021400 1$: ‘ 
2426 021400 004737 035434 JSR PC, SETBR1 :SET THE BRI BIT’ 
2427 021404 104414 ROMCLK “NEXT WORD ts INSTRUCTION, ROMCLK PC=5304 
e428 021406 100400 190400 ;START AT ROM PC= 
2429 021410 104414 | ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2430 Oel4le 116777 114377! <400*S> ?JUMP TO ROM PC OF 1777 
| 2431 021414 004737 o35502 ISR PC, ROMDAT ; RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2432 021420 003776 3776 
2433 Oel4e2 o20s04 CMP RS,R4Y t ARE NEW PC CONTENTS CORRECT? 
2434 021424 601401 BEQ 2s :B YES 
2435 021426 104006 HLT 6 s ERROR CROM Pc IS WRONG 
2436 021430 104401 2$: SCOP *L Pont swO9=1 
2427 021432 012737 o21440 OOle20 MOV #33, LOCK Kew 
2438 O21440 ; 3: 
2439 021440 004737 035434 ISR PC, SETBRI :SET THE BRI BIT’ 
2440 021444 104414: : ROMCLK + NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
| p441 O21446 100403 100403 ;START A T ROM PC= 
' e442 O214S0 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
' 2443 921452 102400 100000!<400%5> ;JUMP TO'ROM PC OF 
2444 021454 004737 o3ssoa JSR PC, ROMDAT :RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
44S O21460 O00000 0 : INDEX 
2446 Oel46e O20S04 CMP RS,R4Y ; ARE NEW PC CONTENTS CORRECT? 
| 244? 021464 001401 BEQ 4g YES 
| 2448 O21466 104006 HLT b iERROR CROM Pc 1S WRONG 
' 2449 021470 104401 p 4g: SCOP1 :LOOP to pes I F SWO9=1 
| sine belize 012737 O21500 o01220 ae MOV #5$, LOCK i SCO 
e452 021500 004737 035434 JSR PC, SETBR1 ;SET THE BRI BIT’ 
_ e453 021504 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2454 O21S06 10040E 100406 :START AT ROM 
e4SS O21510 104414 ROMCLK :NEXT WORD rs INSTRUCTION, ROMCLK PC=5304 
| e456 O21Sl2 106525 104125! <400*5> :JUMP TO R 
td 021514 004737 o3ss02 ISR PC, ROMDAT ?RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2] 05 1360 1252 1252 ; INCEX 
e459 Oe1See CMP RS.RY ; ARE NEW ROM PC CONTENTS CORRECT? 
2460 Oe 1324 001401 BEG 6$ YES 
2461 1526 14006 “ te = iERRIR, CROM P PC 4SWnone 
Bugs Geieae [ouNoe dda soo e THis TEST 





thie mepyyy pry y y | 
BOSRESROS Se Se PB a g. 


‘B16 


it oS naa es O7-MAR-77 15:Sée_ PAGE SO Past: 


-MAR-77 11:21 CROM JUMP TESTS 


HEHEHE HEHE HEHEHE TEST 22 POUTTTTTTTTTTTTTTTTTTeTTTTT, 
; #CROM TEST OF ht I) ON “* SET er mS INSTRUCTION. 
;*#SET THE BRY BIT, PERFORM THE SUMP INSTRUCTION 

sRVERIFY THE JUMP’ BY READING THE CONTENTS OF THE NEW ROM PC 

+ EEREREREAERRERE SES EL ELEE EERE ERLE REESE LEELA SE RSARAE ESSE SESE SSS 


; TEST 22 
012737 o00022 001226 TSTe2: Mov TNO 
012737 921724 OO0lel6 MOV see428 NEXT 
012737 021570 001220 MOV #13, LOCK 
:RI CONTAINS. BASE NCL ADDRESS 
104412 MSTCLR MASTER CLEAR DMC 
032737 100000 001366 BIT #B8IT1S,STOT1 IS IT CRA 
001055 . me BNE b$+2 : SKIP rest IF YES 
004737 935442 JSR PC, SETBRY ;SET THE BRY BIT’ e 
104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
190400 100400 :START AT ROM 
104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
117377 114377! <4O0*6> : JUMP TO ROM PC OF KS 
00473? 035502 JR PC ,ROMDAT ; RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
020504 CMP RS,R4 ARE NEW PC CONTENTS CORRECT? 
001401 BEQ 2s :BR IF YES 
104006 HLT 6 ‘ERROR, CROM PC IS WRONG 
104401 2s: SCOP :LOOP to. 18 IF SWO9=1 
012737 021630 001220 i MOV #3$, LOCK :NEW SCO 
004737 o3544e ISR PC, SETBRY ;SET THE BRY BIT’ 
104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100403 100403 START TR 
104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
103000 100000! <400*6> ;JUMP TO'’ROM PC OF O . 
004737 935502 JSR Pc, ROMDAT sRS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
oo0000 fy : INDEX 
020504 CMP RS,RY ; ARE NEW PC CONTENTS CORRECT? 
001401 BEG ug YES 
104006 HLT b ERROR CROM PC IS WRONG 
104401 4$; SCOP1 : ‘LOOP to 3$ IF SWO9=1 
012737 021670 o01220 ta MOV #5$, LOCK ‘NEW SCOP! 
004737 oas44e ISR PC, SETBRY ;SET THE BRY BIT” 
104414 ROMCLK ; ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
100406 100406 ads :START AT ROM PC= 
104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=53C4 
107125 104125! <400*6> : JUMP TO ROM PC OF S25 
004737 035502 ISR PC, ROMDAT j RS=EXPECTED ROM DATA.RY=ACTUAL RCM DATA 
020504 CMP RS,R4Y ‘ARE NEW ROM PC CONTENTS CORRECT? 
001401 BEG 6$ RIF Y 
104006 HLT 6 i ERROR CROM Pe IS WRONG 
104401 bS: SCOP1 P to S$ IF SWS9=1 


104400 SCOPE SCOPE THIS TEST 


em eee eee eee 


eer 
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Pe 
p00023 001226 
022114 OOlei6 
021760 001220 
100600 001366 
035450 
035502 
022020 091220 
o354s0 
o3ss02 
022060 o01220 
035450 
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CROM JUMP TESTS 


TST23: 


1$: 


es: 


4$: 
S$: 


6S: 


C16 


PAGE: 


5 EERE EEEE RRR AREARAALHAEEEEEE TEST 223 FERRRREEREEESESEA ESLER EES 
cooeer NEBR? BIT PER a BR7 SET MICRO- rian INSTRUCTION. 


M THE JUMP INSTRUCTI 


PE 
AAVERIEY THE JUMP’BY READING THE CONTENTS OF Tue NEW ROM PC 
HH HEHEHE SHEE REE EE REA EERE AEE REALL EEE EEE EE 


: TEST 23 
hov #23, TSTNO 
MOV Tt NEXT 
MOV LotK 
MSTCLR 

T #BITIS,STOT1 
BNE 6$+2 

R PC, SETBR7 
ROMCLK 
100400 
ROMCLK 
114377! <400*7> 
JSR PC , ROMDAT 
3776 
CMP RS,RY 
BEQ 2s 
HLT 
SCOP1 

OV #3$, LOCK 
JSR PC, SETBR7 
ROMCLK 
100403 
ROMCLK 
100000! <400*7> 
JSR Pc, ROMDAT 
CMP RS,R4 
BEG 4g 
HLT 
SCOP1 
MOV #5$, LOCK 


JSR PC, SETBR? 


ROM 

TOMS! 40047) 
JSR PC ,ROMDAT 
RS,R4 

6$ 


OS ee 


; NEXT 
; JUMP To’ ROM PC _OF 


iR1 CONTAINS nome Fee, ADDRESS 
; MAST iF ea DMC 

1S _IT CRAM? 

:SKIP TEST IF YES 


;SET THE BR7 BIT’ 2 
tNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
: START AT ROM PC=0 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; JUMP TO ROM P 77? 

;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 


‘ARE NEW PC CONTEYTS CORRECT? 


-BR IF Y; 
s ERROR CRON PC. 5 WRONG 
P10, i$ I F Si3=1 


NEW S 


;SET_THE BR7 BIT’ 
Saar nt RO IS INSTRUCTION, ROMCLK PC= 5304 
WORD 13 INSTRUCTION, ROMCLK PC=5304 


40 =EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
i ARE Wen ee CONTENTS CORRECT? 


TERROR CROM PC IS WRONG 
:LOOP to 3$ IF SWO9=1 
‘NEW SCOP1 


;SET_THE BR7 BIT’ 

;NEXT oo IS INSTRUCTION, ROMCLK PC=S304 
:START AT ROM PC=6 

sNEXT uORD 15, PSTRRTION, ROMCLK PC=5304 
;RS= EXPECTED ROM DATA,RY=ACTUAL ROM DATA 


‘ARE te ROM PC CONTENTS. CORRECT? 
ERROR ROM PC wer 


P tos 
SCOPE tuts tet 


a ae a ee a ee ee ee ee ee ee 


| ese D1b 


eV ats, | MBCYil 27(1008) O7-MAR-77 15:52 PAGE S2 PAGE 
Erde. Pil D7-MAR-77 Li:2l CROM JUMP TESTS 
| BS 
ra 
2s7 5 REALRERARARAARRRRAAAAEREREL TEST O4 £RRERRREAELEA EEE AEEE EEL ESS 
| 257 : #CROM yo OF JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION 
2580 2 #CL EAR THE C BIT, PERFORM THE JUMP INSTRUCTION, 
|; 2581 : #VERIFY THAT THE’ JUMP DID NOT OCCUR BY READING 
; e582 pe THe CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY CONE). 
| Sees £ EEKEERER REEL REE EEE SL ERERR EERE EASES ERLE LES SEERA EAA ELLE SESE SE 
| 4 
; 2585 ; TEST & 
j fae Og ee a Sh ee ee ee,  eeeneainae a 
| 2587 022114 012737 900024 001226 TST24: Mov #24, TSTNO 
2588 Oe2l22 012737 022304 O01el6 MOY #TSt25, NEXT 
2589 022130 012737 O22150 01220 MOV #1$, LotK 
2590 7R1 rere oo DMC11 ADDRESS 
, 2591 O22136 104412 MSTCLR ; MASTER CLEAR DMC11 
i @592 O22140 032737 100000 OCOi13E& BIT #8IT1S,STATL CRAM? 
| 2593 022146 001055 BNE 6$+2 SKIP TEST IF YES ' 
2594 022150 1S: 
2S9S 022150 004737 035410 JSR PC, CLRALL ; CLEAR ALL CONDITIONS 
2596 CeelS4 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
e597 OeelS& 100409 100400 :START AT ROM PC= 
2598 O22l160 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
, 2599 Oeelbe 115377 114377! <400%2> : JUMP TO ROM P l 
| 2600 Oe2164 004737 O355c2 JSR | PC,ROMDAT ;RS= EXPECTED ROM DATA,RY=ACTUAL ROM one 
' 2601 022170 900002 2 x 
O2217e de0S504 CMP RS,RY ARE NEW PC CONTENTS CORRECT? 
' 2603 022174 OO1401 BEG es :BR IF Y 
| 2604 O22176 104005 HLT 5 ; ERROR — A. IS WRONG 
| P60S O22200 104401 2g: SCOP 1 Poe SWO9=1 
' R606 Oee2e0e 012737 O22219 001220 MOV #3, LOCK iNew 
2607 O22210 3$: : 
2608 Oe22l10 004737 035410 JSR PC, CLRALL i CLEAR ALL CONDITIONS 
2609 Oe22ei4 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC= 5304 
26i0 Oee2i&6 100403 100403 ; START AT ROM 
2611 Oee2e0 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
eble Oeeeee 101000 100000!<400%2> ;JUMP To" ROM PC OF 
2613 Qe2224 004737 c3550e JSR Pc, ROMDAT joa Pee TED ROM DATA,R4Y=ACTUAL ROM DATA 
2614 Qee2e30 009010 10 x 
2615 Oee23e 020504 CMP RS,R4 ‘ARE NEW PC CONTENTS CORRECT? 
e616 Oe2e234 001401 BEQ 4$ :BR IF YES 
2617 O22236 104006 HLT 6 : ERROR CROM PC IS WRONG 
2618 O22240 104401 4$: SCOP 1 ; LOOP to 3$ IF SWO09=1 
2619 assens 012737 Oeeest 001220 MOV #5$, LOCK ;NEW SCOP] 
e620 Oeee S$: 
2621 OeeeSO 004737 935410 JSR PC, CLRALL i CLEAR ALL. CONDITIONS 
2622 Oeees4 104414 ROMCLK * NEXT . IS INSTRUCTION, ROMCLK PC=S304 
ebe3 Oee2es& 100406 poe :START A M PC= 
2624 Oeeeb0 104414 ROMS : NEXT WoRO™ is INSTRUCTION, ROMCLK PC=S304 
e62eS Oeeebe 105125 Lovie! <ygose> : JU MP TO ROM P 
ebe& O22264 004737 025502 JSR PC ,ROMDAT ;RS= EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
e627 Oee270 OOOOlE 16 x 
e628 022272 dJ20504 CMP RS,R4 ‘ARE NEW ROM PC CONTENTS CORRECT? 
e623 022274 001401 BEG 6$ :BR IF YES. 
2630 O22276 104006 HLT & “ERROR, CROM PC IS WRONG 





263i 022200 104401 b$: SCOP :LOOP to S$ IF SW59=1 
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CROM 


JUMP TESTS 


2$: 
33: 


4$: 
S$: 





SCOPE ;SCOPE THIS TEST 


 EEAREAES REARS REAERRRRRRERERE TEST OS 2ERPRREERLLAR ELE SESLA FEEL ES 
: &CROM TEST OF JUMP(I’ ON Z BIT SET Loe roeneoeon INSTRUCTION. 


I HAT BY READING 
LATHE CONTENTS OF THE NEW ROM PC{IT SHOULD INCREMENT SY ONE). 
5 RERA LEER ERE RELA R EE EK EERE ELLE EAA ELE EEEE LESS EEA ALAR ES EASE EES 


; TEST 25 


Mov #25, TSTNO 
MOV aTSt26, NEXT 
MOV #15, LOCK 
;R1_ CONTAINS BASE OMCLI ADDRESS 


MSTCLR “MASTER cL EAR 
BIT #BITIS,STATL -1S IT CRAM? 

BNE 6$+2 :SKIP TEST IF YES 

JSR PC, CLRALL CLEAR ALL CONDITIONS 

ROMCLK “NEXT WQRO IS INSTRUCTION, ROMCLK PC=5304 
190400 :START AT ROM 

ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
114377! <400*2> : JUMP TO ROM PC OF 177 

ISR PC ROMDAT sRSAEXPECTED ROM DATA,RY=ACTUAL ROM DATA 

CMP RS.RY ARE NEW PC CONTENTS CORRECT? 

BEG 2g :BR IF Y 

HLT 6 s ERROR CROM PC 1S WRONG 

SCOP] PA9, 18 F SWO9=1 

MOV #33, LOCK hots 

JSR PC,CLRALL ;CLEAR ALL CONDITIONS 

ROMCLK *NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 


100403 :START AT ROM PC=3 
ROMCLK =NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100000!<400%3> ;JUMP TO’ROM PC OF O 

JSR PC, ROMDAT sRG=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
CMP RS.RY ; ARE NEW PC CONTENTS CORRECT? 

BE 4§ YES 

HLT 6 ERROR CROM Pc 15 WRONG 

SCOP! LOOP to. $1 F SWOS=1 

MOV #5$,L CK NEW Sco 

ISR PC, CLRALL ;CLEAR ALL CONDITIONS 

ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
10040 ;START A T ROM PC= 

ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
104125! <400#3> ‘JUMP TO ROM PC OF 

JSR PC, ROMDAT sRSSEXPECTED ROM DATA. RY=ACTUAL ROM DATA 
CHP RS .RM ; ARE NEW ROM PC CONTENTS CORRECT? 

HLT 6 TERROR, yERon PC IS WRONG 
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Erom SUMP TESTS 


&$: 


TST26: 


1$: 


2$: 
3$: 


4$: 
S$: 


SCOP] ;LOOP_TC S$ IF SwWS9=1 
SCOPE ;SCOPE THIS TEST 


eeeeeteer ee naaets on i TEST C6 HEEHHERERRELEREREE LLELELE SSS 
: #CROM TEST UMP(I) ON BRO SET MICRO- ne ek INSTRUCTION. 
: *CLEAR THE aro ‘Br PERFORM THE JUMP INSTRUCTION, 


BY READING 
:#THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
; EERE ERAA KEELE ERE RE EEA LER EEE REE LEAKE ERA L ELAS LES RELL ESE LASER 


: TEST 26 
MOV #26, TSTNO 
MOV atste7 NEXT 
MOV #13, LOK 
:R1 CONTAINS ponse oncit ADDRESS 


MSTCLR ;MASTER CLEAR 
BIT #BITLS,STATI :IS IT CRAM? 
BNE 6$+2 SKIP TEST IF YES 
JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
190400 ‘START AT ROM PC=0 
ROMCLK :NEXT WORD 15 INSTRUCTION, ROMCLK PC=S204 
114377! <4O0#4> : JUMP TO ROM PC OF 1777 
ish PC, ROMDAT :RS=EXPECTED ROM DATA,RY=GCTUAL ROM DATA 
CMP RS,RY :ARE NEW PC CONTENTS CORREC 
BEG 2g -BR IF YES 
HiT 6 ERROR CROM PC IS WRONG . 
SCOP1 P19, 18 IF SuO3=1 " 
MOV #33 LOCK ‘Nea SCO . 
ISR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100403 i START AT ROM PC= 

OMCLK “NEXT WORD 1s INSTRUCTION, ROMCLK PC=5204 
POOsBD! <4oOK4> , JUMP TOo’ROM PC OF O 
ISR PC, ROMDAT sR= EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
CMP RS RY ARE NEW PC CONTENTS CORRECT? 
BEQ 4g :BR IF YES 
HLT 6 ; ERROR CROM Pc IS WRONG 
COPL P19. 31 F SWO9=1 
MOV 85S, LOCK NEW 
JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK : NEXT WQRO IS INSTRUCTION, ROMCLK PC=S394 
100406 :START AT ROM PC=6 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
104125! <400*4> : JUMP TO BOM PC 
SR PC, ROMDAT ;RS= =EXPECTED ROM DATA, RY=ACTUAL ROM DATA 
CMP = §RS,R4 ‘ARE NEW ROM PC CONTENTS CORRECT? 
BEG 3 :BR IF YES 


eee 


— 


G16 
MAS ‘ ll ! 27% . 100s 3 37 =MSR-77 is: Se PAG cs PASE: cot 
P11 OF-MAR-77 11:2! CROM JUMP TESTS 
022656 10400 HLT & s ERROR CRON, Pc IS WRER 
O22660 19440: &$: SCOP! :LOOP fo S$ IF SW59=1 
O22662 1O44cr SCOPE :SCOPE THIS TEST 


5 RRRERRRERERAPEERARERRRELELE TEST O7 £RRRRAERERAALERELE SEES EEE 
;#CROM TEST OF JUMP(I) ON BR1 SET MICRO-PROCESSOR INSTRUC TION. - 
: #CLEAR THE BRi BIT, PERFORM THE JUMP INSTR ae . 


J BY READIN 
:#THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT SY ONE). 
5 EREEERALER ERED REAR ERAR EARS SEAR EERE RS ERE LARA LE EARL SEAS EERE LS ESS 


; TEST 27 
G22664 012737 o00027 o0l12e6 TST2e7: MoV #27, TSTNO 
Oeeb72 012737 023054 O0iel€ MOV 8TSt3C, NEXT 
022700 012737 022720 091220 MOV #1$,L0CK 
;R1 CONTAINS BASE DMC11 ADDRESS 
922706 104412 MSTCLR ;MASTER CLEAR DMC11 
022710 032737 100000 001266 BIT #SITIS,STATL 31S IT CRAM? 
Dee? 16 og10ss a SNE b$+2 :SKIP TEST IF YES 
022720 004737 o25410 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
022724 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
Cee7e6 100400 100400 :START AT ROM PC= 
022730 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
022732 116777 114377! <400%5> : JUMP TO ROM PC OF 1777 ! 
022734 004737 ogsso2 JSR PC, ROMDAT :RS= EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
022740 ooco02 © INDEX 
022742 920504 CMP RS.RY ‘ARE NEW PC CON"ENTS CORRECT? 
022744 001401 BEQ 2s :BR IF YES 
022746 104006 HLT ~ !ERROR, CROM PC IS WRONG 
922750 10440! 2s: SCOP 1 :LOOP To 1$ IF SwO9=1 
Deere 012737 22760 901220 “ MOV 83S, LOCK :NEW SCOP1 
022760 004737 o35410 JSR PC, CLRALL :CLEAR ALL CONDITIONS 
620764 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
022766 100403 100403 5 START T ROM Po=3 
022770 104434 ROMCLK NEXT WORD rs TNSTRUCTION, ROMCLK PC=5304 
022772 102400 1QO0G0!<400%5> ;JUMP TO'ROM PC OF 
022774 004737 o2s502 ISR PC, ROMDAT ;RS=EXPECTED ROM DATR,RY=ACTUAL ROM DATA 
023000 900010 10 N 
023002 d20504 CMP RS,RY ‘ARE NEW PC CONTENTS CORRECT? 
023004 001401 BEQ 4§ RIF \€ 
023006 104006 HLT 5 : ERROP CRON Pc IS WRONG | 
623010 104401 ug: SCOP! : LOOF to. 38 F SWO9=1 
Ge201¢ 012737 023020 001220 a MOV S$, LOCK NEW S 
023020 004737 925410 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
023024 104414 ROMCLK : NEXT WORD Is INSTRUCTION, ROMCLK PC=5304 
023026 10040 100406 :START AT ROM PC=6 
023030 104414 ROMCLK NEXT WORD. 15, INSTRUCTION, ROMCLK PC=5304 
023032 106525 {ovis «o0ss» JUMP TO R 
023034 004737 o2sso2 oR PC ROMDAT : RS=EXPECTED aon bata. RY=ACTUAL ROM DATA 
023040 OO00l& 16 Ps nee 
6232042 d20504 CMP RS, RY tARE NEW ROM PC CCNTENTS CORRECT? 
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PAGE 6 
CROM JUMP TESTS 


&$: 


2s: 
3$: 


4$: 
S$: 


BEG 3 :BR IF YES : 

HLT ¢ SERROR, CROM FC_IS WRONG 
SCOP} ‘LOOP to S$ IF SwW59=1 
SCOPE . :SCOPE THIS TEST 


5 EERERRAAAELE ERA ESRERE SERA EE Tet JO RHAKHHRLHARAL LALA ALAS ESSE SEE 
: #CROM TEST OF Je (1) ON BRY The tn PROCESSOR INSTRUCTION. 

: ¥CLEAR HE BRY BIT, PERFORM 1h JUMP INSTRUCTION, 

: #VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

:#THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY CNE>. 
SUTETTSETECTETETTSTESTEST CCC E TE TTT TEST TST Te ETE TT TET TET ET ETT ee 


TNC 
MOV rete NEXT 
MOV alg, LOCK 
RI CONTAINS BASE D DMC1i ADDRESS 


MSTCLR "MASTER CLEAR 
BIT #B1T15,STATL -IS IT CRAM? 

BNE 6$+2 :SKIP TEST IF YES 

ISR PC, CLRELL :CLEAR ALL CONDITIONS 

ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 
100400 ; START AT ROM PC= 

ROMCLK :NEX XT WORD IS INSTRUCTION, ROMCLK PC=5304 
114377! <4O0#E> : JUMP TO ROM PC 777 

Sk PC, ROMDAT eaprecien ROM DATA,RY=ACTUAL ROM DATA 

CMP RS.RY ARE NEW PC CONTENTS CORRECT? 

BEG 23 YES 

HiT 6 ERROR CROM Pc IS WRONG 

SCOP LOOP to F SWO9=1 

MOV 833, LOCK NEW 

JSR PC, CLRALL ;CLEAR ALL CONDITIONS 

ROMCLK “NEXT WQRO IS INSTRUCTION, ROMCLK PC=5304 
100403 ;START A ROM PC= 

ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100000!<400#6> ;JUMP TO'’ROM PC OF O 

ISR PC, ROMDAT ; BS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 

CMP RS,RY :ARE NEW PC CONTENTS CORRECT? 

BEQ 4§ -BR IF Y 

HLT & : ERROR CROM PC. IS WRONG 

SCOP1 : P03 swOog= 

MOV #5$, LOCK ie 

JSR PC,CLRALL ;CLEAR ALL CONDITIONS 

ROMCLK NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
100406 :START AT ROM PC=6 

ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
104125! <400*6> > JUMP TO ROM PC 5 

JSR PC, ROMDAT i RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 





sf 


MASYiL 2761006) O7-MAR-77 15:52 PAG PAGE: 0202 
B.511 9 OP-MAR-?77 11:21 CROM fine TESTS: 
023232 oecSc4 CMP RS. RY ;ARE NEW ROM PC CONTENTS CORRECT? 
023234 90140: BEG o§ F YES 
023236 id40c¢ HLT 7 ERROR, CROM PC_IS WRONG 
O23240 104401 b$: SCOP1 :LOOP fo S$ IF SWS9=1 
023242 104400 * SCOPE SCOPE THIS TEST 
5 EERAKREAAAKRAARSAAKELARLLKAE TEST Jl 4HERRRREXHA HAA SAE SAL LAE LE EE 
;#CROM TEST OF JUMP(I) ON BR7_SET MICRO-PROCESSOR INSTRUCTION. 
:*CLEAR THE BR7 BIT, PERFORM THE JUMP INSTRUCTION, 
;#VERIFY THAT THE JUMP DID NOT OCCUR BY, READIN 
:#THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT SY ONE). 
£ LEELA AALEAE KALA LAASREAAAL ELS REREA ALA RAL LAL ERE AA LALELLAFERAL ALE 
; Tes? al- 
023244 012737 00003i oo1226 TST21: MOV TNO 
023252 012737 023434 90:2: MOV srstae NEXT 
023260 912737 023300 001220 MOY = #1, LOCK A 
;R1 CONTAINS BASE DMCL1 ADDRESS 
023266 104412 MSTCLR :MAST ER CLEAR OMc 
023270 032737 100090 o013t& BIT wBITIS,STAT1  ;1S IT 
De3276 001055 a BNE &$+2 ; SKIP TEST. IF YES ; 
023300 004737 o35410 JSR PC,CLRALL ;CLEAR ALL CONDITIONS 
023304 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
023306 190400 190400 START AT ROM PC= r 
023310 104414 ROMCLK ;NEXT WORD 1S INSTRUCTION, ROMCLK PO=52%4 
023312 117777 114377! <400"7> JUMP TO ROM PC OF 1777 
023314 004727 o3sS02 ISR PC ,ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA ; 
023320 og0002 2 INDEX 
023322 d20504 CMP RS,R4 TARE NEW PC CONTENTS CORRECT” 
022324 001401 BEG 2g :BR IF YES 
023326 104006 HLT = : ERROR CROM PC_1S WRONG 
023330 104401 . 2: SCOP1 : LOOP. to F SWO9=1 
Des33¢ 012737 Oes340 901280 “i MOV 83S, LOCK ‘NEW 
023340 004737 O354:0 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
023344 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
023346 100403 100403 ;START AT PC=3 
023350 104414 ROMCLK. NEXT uORD is INSTRUCTION, ROMCLK PC=5304 
023352 103400 100300! <400%7) _; JUMP TO'ROM PC 
S4 004737 926502 ISR PC, ROMDAT ;RS= EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
023360 000010 10 
023362 20504 CMP RS,RY ‘ARE NEW PC CONTENTS CORRECT? 
023364 001401 j BEG 4g F YES 
023366 104006 HLT 6 SERROR, CROM PC_IS WRONG 
023370 104401 __ 4g: SCOP1 ; LOOP tg. $$ IF Su09=1 
02337e 012737 ocz3400 001220 tz MOV #5$, LOCK - ;NEW SCO 
023400 004737 O2S54i0 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
023404 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
023406 100406 100406 :START AT ROM PC= 
023410 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
023412 107525 . 104125! <400#7> ; JUMP TO ROM PC 
023414 004737 o3ssc2 JSR PC, ROMDAT ;RS=EXPECTED ROM DATA,RYSACTUAL ROM DATA 
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CROM JUMP TESTS 


5$: 


TST3e2: 


1$: 


2s: 


4$: 


J16 


Po 
ib INDEX 
CMP gS. : ARE NEW ROM ©C CONTENTS CORRECT? 
BEG 3 YES 
HLT 6 ERR CROM PC IS WRONG 
SCOP ‘LOOP to S$ IF SwW59=1 
SCOPE SCOPE THIS TEST 


s RERRERERERERERERRARRREREEEE TEST JO AERKERRERELAEARAL KLE LA ESSSS 
"CRAM TEST OF JUMP(T) NeveR MICRO-PROCESSOR INSTRUCTION. 
: #PERFORM THE JUMP INSTRUCTIO 

: #VERIFY THE Ld DID NOT 7 ae | CLOCKING THON COagS. THe 


SETHE CRAM PC IS *ORRECT. IF THE CRAM -C IS NOT saicur 
:*THEN PORTY CONTAINS A 37 
s FRXEREALARA KALE SSRSL AEA AAA REL HAS LAER ALAA FLA ALA LALA FALEFALLEFE 


; TEST 32 


Mov #32, TSTNO : 
MOV rst NEXT 





MOV LOtK 
R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR MAST ER CLEAR DMC11 
BIT sPITiS,STAT! :IS IT CRAM? 
BEG 6$+2 ‘SKIP TEST IF NO 
ISR PC, MEMSET :SET MEM AND RAM 
ISR PC, CLRALL :CLEAR ALL CONDITIONS 
ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
10046 :START AY ROM PC=0 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
114377! <400xO> ; JUMP TO ROM PC OF 1 , 
JSR PC RAMDAT R4Y=CRAM PC {LSB g Arts) 
1 SEXPECT ED DAT 
CMPB sea RS,R4 iIs ROM PC CORRECT? 
BEG 25 R IF YES 
HLT 5 ERROR CRAM 1c IS WRONG 
SCOP1 P to 1$ IF SWO9=1 
MOV 833, LOCK hen SCOP1 
JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100402 :START A 
ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
109000!<400x0> ;JUMP TO ROM PC OF 0 
JSR PC, RAMDAT :R4Y=CRAM PC {LSB 8 BITS) 
4 :EXPECTED DAT 
CMPB eR, RH 1S ROM PC CORRECT? 
BES 4 F YE 
HLT 5 TERROR CRAM PC IS WRONG 
SCOP! ; LOOP to 3g IF SWOS=1 
MOY #53, LOCK ‘NEW SCOPL 


ee ee ee ee ee ee ee, 


—--2 a a ee ee ee ee ee a et eee ee. ee mm 5 ee = 


1 SZ0MS MRACYIL 27(1008) OP7-NAR-77 15:52 PAGE $9 PASE: 205 
| ESS 1S8.F2 O7-MAR-77 Ll:21 CRAM JUMP TESTS 
2968 923574 CO4727 O35410 JSR PC, CLRALL sCLEAR ALL CONDITIONS 
; 2969 3690 i04414 ROMCLK s NEXT . ie INSTRUCTION, ROMCLK &C=S5304 
; 2970 O23602 1004CE 1004D& : START AT R C=6 
| 2971 023604 104414 ROMCLK NEXT WORD ? TNETRUCTION, ROMCLK PC=5304 
| ? BE 2606 Louies TOY BS! <400«0> : JUMP TO ROM PC _OF Ses _ 
972 3610 O04 C25530 JSR PC .RAMDAT Jc PC .- 8 BITS) 
| 2975 023614 000007 ;EXPECTED DAT 
| 2975 023616 120504 cMpB RS,R4 i1S ROM PC CORRECT? 
{ 2978 Oe36e0 001401 BEQ - 6S Y 
| 2977 QOe23622 104005 4LT c i ERROR oe ve IS WRONG 
| e978 O23624 10440] 6S: SCOP1 Ptos SWwSS=1 
| ate O236e& 104400 SCOPE OPE outs test 
' 2981 
23e2 5 RELRARHARERASRAERERERREAREE TEST JO SEKXRAERALALAFLEL ELE LLAFZFS 
2983 : *CRAM TEST OF JUMP(I) ALWAYS MICRO-PROCESSOR INSTRUCTION. 
i; 2984 : PERFORM THE JUMP INSTRUCTION 
| 2985 :#VERIFY THE JUMP DID OCU BY CLOCKING THe INSRUCTION 
| 2986 -*IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 
2397 - :#BR WITH THE LOWEST 8 BITS OF THE CRAM PC. a THIS POINT 
293ege ;*THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT, 
2383 : ¥THE JUMP WAS SUCCESSFUL, ah THE JUMP WAS UNSUCCESSFUL 
2330 jeTHEN PORTY WILL CONTAIN & 37 
Saas £ REGKE LHL GREK RAK KALE KA AKL ERA REALE E RA EALAAKL ERLE LARA LA ELS FERALAS 
i 29393 ; TEST 33 a 
{| 2994 ee ee. ey Reeenenea nae 
| @995 023630 012737 090033 oO0l1226 TST33: MOV #33, TSTNO 
| 2996 023636 O12737 Oe4010 OOlel& MOV atta NEXT 
| 2987 023644 012727 023670 001220 MOV Lotk 
2338 ;R1 CONTAINS BASE DMC11 ADDRESS 
2999S 023652 10441le ; MSTCLR MASTER CLEAR DOMC1li 
' 3000 023654 932737 105090 O0i3&& BIT #BIT1S,STATI :IS IT CRAM? 
' 3001 Oe3662 00145) BEG 6$+2 ;SKIP TEST IF NO 
3002 O23664 004737 035634 JSR PC .MEMSET : SET MEM AND RAM 
2093 023670 1$: 
2004 023670 104414 : ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2005 O23e72 100400 zi ipo : START AT PC= 
3006 023674 104414 ~~. ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3087 023676 114777 -— - 114377! <400#1> : JUMP TO ROM PC OF 1777 
2808 023700 004737 035530 JSR PC .RAMDAT :R4= CRAM PC (LSB 8 BITS) 
30039 023704 000377 3 377 : EXPECTED DATA 
a1) pe27 08 erat 4 aoe aa :1S Wy Pe CORRECT? 
331 5 7i2 104005 ary BRIE YE CRAM PC IS WRONG 
3013 023714 104401 2$: SCOP! : LOOP to. is IF SWOS9=1 
3014 023716 012737 023724 001220 MOV #2$,LOCK : NEW SCOP 
3015 023724 3$: 
2016 023724 104414 ROMCLK NEXT WORD 8 Pe TRCN, ROMCLK PC=5304 
2017 O23726 100403 Mt asin ; START AT ROM 
2918 023730 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
352g b53754 carpet 035520 TOA eee ROR AMDA rr 70. JBAzcRan PC SB 8 BITS) 
cso . S 
ene BE 740 aed 0 : EXPECTED 
2022 023742 120504 CMPS RS,R4 ;I1S ROM PC COORRECT? 
2022 023744 001401 BEG ed : BR IF YES 
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TST34: 


3$: 


Pace 
HLT 5 sERROR, CRAM PC IS WRONG 

SCOP! LOOP to. 38 IF SswO9=1 

MOY #5, LOCK ‘NEW W SCO 

ROMCLK : NEXT WORD 15 INSTRUCTION, ROMCLK PC=5304 
10040 :START AT ROM 

ROMCLK :NEXT WORD is INSTRUCTION, ROMCLK PC=S304 
104125! <400#1> : JUMP TO ROM PC OF S2S 

ISR PC. RAMDAT “R4=CRAM PC (LSB 8 BITS) 

125 ‘EXPECTED DATA 

CMPB RS. RY 1S ROM PC CORRECT? 

BEO 6$ Y 

HLT 5 + FAROR CRAM Pc IS WRONG 

SCOP sLOOP to S$ IF SW59=1 

SCOPE -SCOPE THIS test 


a 
‘ 
5 RRRK RAKE RAE RE EE ERE EEEEE TEST BY RRREREAREREAEERERE EERE EEE ES 
T SET 1 so aan INSTRUCTION. 


UCTIO 
“VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 
ie N T. THIS INSTRUCTION LOADS THE 

HE CRAM PC. AT THIS PO 


SD , 
; #THE JUMP _WAS etc IF_THE JUMP WAS UNSUCCESSFUL 
pte PORTY WILL CONTAIN 'A 

ia lalaheleisiaialableleiehelaiaisieiaiieieiaisisielieieleiniaisiaiseieieisieisiaieiaiieieisiaieisiieieisisisiaise 


; TEST # 


#34, TSTNO 
MOV #TST35 NEXT 
MOV #13, LOCK 
Ru CONTAINS gence DMC11 ADDRESS 
MSTCLR ‘MAST TER CLEAR OMC11 
BIT #BIT1S,STATL :1S_ IT CRAM? 


BEQ 6$+e2 arp TEST IF_NO 
JSR PC ,MEMSET ;SET MEM AND RAM 


JSR PC,SETC ;SET THE C BIT’ 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
100400 :START AT ROM PC=0 : 
ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
114377! <4O0%2> : JUMP TO ROM PC OF 1 

JSR PC, RAMDAT RY=CRAN PC (LSB 8 br Ts) 

37 iEXPECTE DATA 

CMPB)saRS,, RY OM B OO ORRECT? 

BEQ oS ‘BR IF YES 

HLT S ; ERROR Rett PC. IS WRONG 

SCOP 1 tL P foot SWO9=1 

MOY #3$, LOCK NeW 

JSR PC,SETC ;SET THE C BIT’ 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
100403 :START AT R 

ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
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3085 024122 101000 1969000!<4C0%2> ;JUMP TO ROM PC OF O 
3081 024124 904737 935653C isk PC RAMDAT ;R4=CRAM PC (LSB 8 BITS) 
308 024130 9000C0 0 | :EXPECTED DAT 
3983 024132 120504 CMPB RS, RH 15 ROM PC CORRECT? 
3084 024134 001401 BEG = “BR IF YES 
3085 024136 104005 HiT 5 : ERROR CRAM if IS WRONG 
3086 Oe414C 104401 n 4g: SCOPi : LOOP to 3 F SWO9=1 
3087 Oe4142 012737 o24150 oo1220 MOV #5$,LOCK ;NEW SCO 
3088 024150 cs: 
3089 024150 004737 O3S4sé ISR PC,SETC. ;SET THE C BIT’ 
3099 O24154 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCL.K PC=5304 
3031 024156 100406 . 100406 :START A 
3092 024160 104414 : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
3093 024162 105125 | Tpwies: <ygoye> ;JUMP_TO ROM PC OF S25 
3094 024164 004737 935530 18k PC, RAMDAT sRY=CRAN PC (LSB 8 BITS? 
3095 024170 000125 : 125 ;EXPECTED DATA = 
3096 024172 120504 CMPB sR’, RY ;1S ROM PC CORRECT? on™ 
3097 024174 001401 BEQ 6$ RIF Y a 
3098 924176 194005 HLT = TERROR CRAM Pc IS WRONG - 
3099 024200 104401 6$: SCOP1 :LOOP To 5$ IF SW59=1 
3100 O24202 104409 SCOPE, :SCOPE THIS TEST 
2102 
193 Sj RRRRRAAAAARARRRRRERRRERAREL TEST QS LRRRRRRREAAAE AREA ELLA LA EREE 
4 :#CRAM TEST OF JUMP(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
:¥SET THE 2 BIT, PERFORM THE JUMP INSTRU 
#VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 
;#IN THE LOCATION IT IS THI TRUCTION LOADS T 
;#8R WITH THE LOWEST 8 OF T T THIS POINT 


: H , 
;*THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT, 


Oe4260 004737 035530 JSR PC, RAMDAT “R4=CRAM PC (LSB 8 BITS) 
02 377 “EXPECTED DATA 
024266 iedsoy CMPB sa, R4 :IS ROM PC CORRECT? 

BEG 23 :BR IF YES 

HLT 5 :ERROR, CRAM PC IS WRONG 
024274 104401 2s: SCOP! :LOOP to 18 IF SWOS=i 


3 
3104 

3105 

3106 

3107 

sits 

3110 an JUMP WAS SUCCESSFUL aif THE JUMP WAS UNSUCCESSFUL 

3ill °¥THEN PORTY WILL CONTAIN’A 37 

gtis s SEKKKHRE LEAL LARA ASRS ERLE LARA LALLA LA AA RAAAALASAAALAARAL EAE 
ee - ; TEST 35 

3116 Oe4204 912757 0000325 001226 TST2S5; MOV #35, TSTNO 

3117 Oe4¥2le 912737 Oe4400 Ooolzi& MOV.  #75136,NEXT 

3118 O24220 012737 Oe4e244 OOl2ec MOY ~-. #1$,LOcK 

3119 :R1 CONTAINS BASE DNC LL ADDRESS 

2120 oe4226 104412 MSTCLR :MASTER CLEAR 

3121 Oe4230 032737 100009 0013&& BIT BBITIS;STATL 31S IT CRAM? 

3122 Oe4236 001457 BEG b$+2 ‘SKIP TEST IF 

2123 Oe4e40 004727 035634 JSR PC, MEMSET :SET MEM AND RAN 

2124 Oe4e44 1$: 

3125 024244 004737 9025474 JSR PC,SETZ ;SET THE 2 BIT’ 

3126 Oe#2S0 104414 ROMCLK «NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3127 Oex¥252 100400 | 100400 START AT ROM PC= 

3128 O24254 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2123 Oese5s 115777 114377! <400%3> JUMP TO ROM PC OF 1777 

3131 Oo4e 

3132 

313 

313 

313 
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;#T WAS SUCCESSFUL, 
;*#THEN PORT4Y WILL CONTAIN A 37 
3 SESE E28 8 EE JE 9-0 0 6 8 9 9 9 2 a a a A a dE a kk 
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3136 Oe4276 012737 024304 01220 MOV #3$, LOCK ;NEW SCOP1 

3137 024304 3$: 

3138 024304 004737 035474 JSR PC,SETZ ;SET THE 2 BIT’ 

3139 024310 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

3140 Qe4312 100403 100403 ;START AT ROM PC=3 

3141 024314 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

3142 024316 101400 100000! <400*#3> ;JUMP TO ROM PC OF 

3143 Oe43e0 004737 035530 JSR PC, RAMDAT ;R4=CRAM PC (LSB 8 BITS) ‘ 

3144 Qe43e4% 000000 0 Ore reD 

3145 Oe43e6 120504 CMPB Ss, R4 31S PC CORRECT? 

3146 024330 001401 BEQ 4§ ;8R IF YES 

3147 Oe4332 104005 HLT S ;ERROR, CRAM PC IS WRONG 

3148 024334 104401 4$: SCOP! ;LOOP to 3$ IF SWO9=1 

a8 feu 012737 024344 001220 6s MOV #S$, LOCK ;NEW SCOP 

3151 Oe4344 004737 035474 JSR PC,SETZ ;SET THE 2 BIT’ 

31S2 O243S0 104414 ROMCLK ;NEXT_ WORD IS INSTRUCTION, ROMCLK PC=S304 

3153 Oe43S2 100406 100406 ;START AT ROM PC=6 

3154 024354 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3155 024356 105525 104125! <400%3> ;JUMP_TO ROM PC OF SeS 

3156 Oe4360 004737 035530 JSR PC, RAMDAT ;R4=CRAM PC (LSB 8 BITS) 

3157 Oe4364 000125 125 ;EXPECTED DATA 

3158 024366 120504 CMPB sR, R4 ;1S ROM PC CORRECT? 

3159 024370 001401 BEQ ae ;BR IF YES 

3160 Oe437e 104005 HLT S ;ERROR, CRAM PC IS WRONG 

3161 024374 104401 6S: SCOP1 ;LOOP To S$ IF SWS9=1 

tha 024376 104400 SCOPE ;SCOPE THIS TEST 

3164 

31ES | JHHHHMHHHHHHHEHHHEHEHHHHEE TEST 36 ste EEEEEEEEEEEREEEEEEE 

3166 ;#CRAM_ TEST OF JUMP(I) ON BRO SET MICRO-PROCE INS ‘ 

3167 ;#SET THE BRO BIT, PERFORM THE JUMP INSTRUCTI 

3168 ;*#VERIFY THE JUMP DID OCCUR oY ae edad a THE I TI 

3169 3 #1 LOCATION IT IS AT. THIS INSTRUCTION L T 

3170 ; THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 

2171 ;*#THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT, 

3176 HE JUMP S IF_THE JUMP WAS UNSUCCESSFUL 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 


De44S0 ROMCLK I 
O244Se 116377 114377! <400%4> ;JUMP TO ROM Fe OF 1777 


| 
| ; TEST 36 

O24400 012737 000036 001226 TST36: MOV #36, TSTNO 

024406 012737 024574 001216 MOV #7S137 NEXT 

024414 012737 O24440 001220 MOV #15, LOCK 

R1 CONTAINS BASE DMC11 ADDRESS 

O24422 104412 MSTCLR - $MASTER CLEAR DMC11 

024424 032737 100000 001366 BIT #BIT1S,STAT! 31S IT CRAM? 

024432 001457 BEQ 6$+2 :SKIP TEST IF NO 

024434 004737 035634 a JSR PC, MEMSET -SET MEM AND RAM 

peq4 004737 035426 JSR PC, SETBRO -SET THE BIT’ 
Oe4444 104414 ROMCLK : HpRe Ts INSTRUCTION, ROMCLK PC=5304 
| 024446 100400 100400 :START AT ROM PC=0 
| 104414 *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
' 
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11 O7-MAR-77 11:21 
3192 024454 004737 035530 
3193 Oe4460 000377 
Sige owed OBLaOL 
3196 SSuuge TOHOBS 
3197 024470 104401 
3198 Oe4472 012737 024500 
3349 beuep0 004737 035426 
3201 SS uepe 104414 
Be ie on 
Se SE EOP sa 
3207 Oe4s22 
’ 3208 024524 001401 
3209 024526 104005 
3511 eveae di273> o24SHO 
316 pSueur 004737 035426 
3214 Oe4S44 104414 
| 3215 O2e4546 100406 
3216 Oe4S5S0 104414 
3217 O2e45S2 106125 
3218 024554 004737 035530 
3219 024560 000125 
3220 Oe4S6e 120504 
3221 Oe4S564 001401 
3222 Oe4S66 104005 
3223 024570 104401 
3224 024572 104400 
| 3225 
| 3226 
' 3227 
| 3228 
| 3229 
| 3230 
| 3231 
| 3232 
| 3233 
| 3234 
| 3235 
| 3236 
3237 
3238 
3533 024574 012737 000037 
3241 Oe4602 012737 024770 
seve 024610 012737 024634 
| 3244 024616 Lowi ; 
% ue 024626 001457 — 
| 3247 Oe4630 004737 035634 
| 
| 


001220 


001220 


CRAM JUMP TESTS 


es: 


4§: 


SS: 


6S: 


TST3?: 


COl 


PAGE: 
JSR PC, RAMDAT ;R4=CRAM PC (LSB 8 BITS) 
377 ;EXPECTED DATA 
CMPB sR, R4 *IS ROM PC CORRECT? 
BEQ 2$ BR IF YES 
HLT 5 RROR, CRAM PC IS WRONG 
SCOP! *LOOP to 1$ IF SWO9=1 
MOV #3$, LOCK *NEW SCOP1 
JSR PC, SETBRO ;SET THE BRO BIT’ 
ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100403 i START AT ROM PC=3 
"NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
190000! «4p0e4» - JUMP TO’ ROM PC OF O 
t ;R4=CRAM PC (LSB 8 BITS) 
0 “EXPECTED DATA 
CMPB any RY -TS ROM PC CORRECT? 
BEQ 4g’ *BR IF YES 
T 5 *ERROR, CRAM PC IS WRONG 
SCOP1 ‘LOOP to 3$ IF SWO9=1 
#5$, LOCK "NEW SCOPI 
JSR PC, SETBRO ;SET THE BRO BIT’ 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100406 *START AT ROM PC=6 
ROMCLK : IS INSTRUCTION, ROMCLK PC=5304 
104125! <400%4> : JUMP TO ROM PC OF S25 
JSR PC, RAMDAT *R4=CRAM PC (LSB 8 BITS) 
*EXPECTED DATA 
CMPB sR, R4 *TS ROM PC CORRECT? 
BEQ ;BR IF YES 
T S “ERROR, CRAM PC_IS WRONG 
SCOP1 *LOOP to S$ IF SW59=1 
OPE :SCOPE THIS TEST 
gE SEA AEE AE SEE AE SE AE EEE A SEE AE HEE EE Tet 37 eg ee he nena 
*#CRAM TEST OF JUMP(I) ON BR1 SET MICRO- SSOR I 
SET THE BR1 BIT, PERFORM THE JUMP INS ION 
: THE DID OCCUR BY CLOCKING THE INSRUCTION 
ieIN THE LOCATION IT IS AT. 18 INSTRUCTION LOADS 
WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
j THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT, 
j THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
ie N PORTY WILL CONTAIN A 37 
Ss RKKRRRRARAG REGGAE RRA RE RARE RAALRSRA AREER ARERR RAR AASRLEREE 
; TEST 37 
hov #37, TSTNO 


MOV #TSt40, NEXT 
MOV #15, LOCK 


;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 
BIT #B1T1S,STATI ;1S_IT_CRAM? 
BEQ 6$+e ;SKIP TEST IF_NO 
JSR PC, MEMSET ;SET MEM AND RAM 


0209 


meee eee 
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104401 
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035530 


024674 
035434 


035530 


024734 
035434 


035530 


001220 


001220 


024770 012737 OO0040 001226 


024776 012737 025164 OOlelé 


O7-MAR-77 15:S2_ PAGE 64 
1:21 CRAM JUMP TESTS 


1S: 


3S: 


4§: 
S$: 


6$: 


TST4O: 


DO1 





JSR PC,SETBRI ;SET THE BR 
ROMCLK NEXT WORD T , ROMCLK PC=S304 
:START AT ROM PC=0 
ROMCLK *NEXT IS INSTRUCTION, ROMCLK PC=5304 
114377! <400%5> > JUMP TO ROM PC OF 1777 
JSR PC, *R4=CRAM PC (LSB 8 BITS) 
377 *EXPECTED DATA 
CMPB sR, R4 >IS ROM PC CORRECT? 
BEQ 2s" *BR IF YES 
HLT 5 ERROR, CRAM PC IS WRONG 
SCOP1 *LOOP to 1§ IF SWO9=1 
MOV #3, LOCK *NEW SCOP1 
JSR PC, SETBRI ;SET THE BR1 BIT’ 
ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100403 :START AT ROM PC=3 
ROMCLK ?NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
100000! <400*5> ;JUMP TO'ROM PC OF O 
JSR PC t ;R4=CRAM PC (LSB 8 BITS) 
0 “EXPECTED DATA 
CMPB sR, R4 *TS ROM PC CORRECT? 
BEQ 4§ *BR IF YES 
HLT S “ERROR, CRAM PC IS WRONG 
SCOP1 *LOOP to 3§ IF SWO9=1 
MOV #5$, LOCK *NEW SCOP1 
JSR PC, SETBR1 ;SET THE BR1 BIT’ 
LK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1°9406 *START AT ROM PC=6 
CLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
104125! <400%5> > JUMP TO ROM PC OF S25 
PC, RAMDAT jRY=CRAM PC (LSB 8 BITS) 
25 “EXPECTED DATA 
CMPB «RS, RY *TS ROM PC CORRECT? 
BEQ 6$ *BR IF YES 
T S 43 CRAM PC IS WRONG 
SCOP1 *LOOP to” S$ IF SW59=1 
SCOPE :SCOPE THIS TEST 


ee ae ty a TEST YO RERERERERAHEREEEEEEEEE REELS 
SSOR INSTRUCTION. 


LOADS THE 
ITS OF THE CRAM PC. AT THIS Rech 
; TS MOVED TO PORTY. IF THIS DATA IS CORRECT 
;*#THE JUMP WAS ei IF THE JUMP WAS UNSUCCESSFUL 
iepene PORTY WILL CONTAIN'A 37 
«26-3 26 3 3 0 9 9 9 9 2 a EE a EEA a a a 


Mov #40, TSTNO 
MOV #TST41, NEXT 








EOL 


3358 ;*THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
3359 ;*THEN PORTY WILL CONTAIN 'A 37 
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3304 025004 012737 025030 001220 MOV #1$,LOCK 
3305 Rl CONTAINS BASE DMC11 ADDRESS 
3306 Oe5012 104412 MSTCLR ‘MASTER CLEAR DMC11 
3307 025014 032737 100000 101366 BIT #BITIS,STAT! 31S IT ? 
3308 Oe5022 001457 BEQ $42 :SKIP TEST IF_NO 
3303 025024 004737 035634 JSR PC, MEMSET -SET MEM 
3310 025030 1$: 
3311 025030 004737 035442 : JSR PC, SETBRY ;SET THE BRY BIT’ 
3312 025034 104414 ROMCLK ?NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3313 025036 100400 100400 :START AT ROM PC=0 
3314 25040 ~ *NEXT WORD IS INSTRUCTION, RONCLK PC=5304 
3315 P5042 117377 114377! <400%6> JUMP TO ROM PC OF 1777 
3316 e044 004737 035530 JSR PC, RAMDAT *R4=CRAM PC (LSB 8 BITS) 
3317 O&A! “00377 377 EXPECTED DATA 
3318 2532 12054 CMPB sR, R4 31S ROM PC CORRECT? 
32:3 025054 00140: BEQ 2S *BR IF YES 
3320 025056 104005 HLT 5 :ERROR, CRAM PC IS WRONG 
3321 025060 104401 2s: SCOP1 :LOOP to 1$ IF SWO9=1 
3322 O25062 012737 025070 001220 MOV #3$, LOCK :NEW SCOP1 
3323 025070 3: 
3324 004737 035442 JSR PC, SETBRY ;SET THE BRY BIT’ 
3325 025074 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
3326 100403 100403 :START AT ROM PC=3 
3327 025100 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3328 025102 103000 100000! <400%6> ; JUMP TO’ROM PC OF 0 
3329 025104 004737 035530 JSR PC, RAMDAT ;R4=CRAM PC (LSB 8 BITS) 
3330 025110 o00000 0 ;EXPECTED DATA 
3331 Oe5i1le CMPB RS, R4 31S ROM PC CORRECT? 
3332 025114 001401 BEQ ug IF YE 
3333 025116 104005 HLT S TERROR, CRAM PC IS WRONG 
3334 025120 104401 4g: SCOP! LOOP to 3$ IF SWO9=1 
3335 O25 122 012737 925130 001220 a MOV #5$, LOCK NEW SCOP1 
3339 025130 004737 o3s442 JSR PC, SETBRY ;SET THE BRY BIT’ 
3338 025134 104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3339 025136 100406 100406 ; START AT ROM PC=6 
3340 025140 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
334! 025142 107125 104125! <400*6> ; JUMP TO ROM PC OF 
3342 025144 004737 035530 JSR PC, RAMDAT 7R4=CRAM PC (LSB 8 BITS) 
3343 025150 000125 125 EXPECTED DATA 
3344 025152 120504 CMPB sR, R4 :TS ROM PC CORRECT? 
3345 025154 001401 BEQ 6$ ;BR IF YES 
334 025156 104005 HLT 5 “ERROR, CRAM PC _IS WRONG 
3347 025160 104401 6$: SCOP1 :LOOP to S$ IF SW59=1 
3348 025162 164400 SCOPE :SCOPE THIS TEST 
3350 
3351 p RRR EEE EEE EEE TEST Yl RRR RARER AAAS RAK K SEEKS 
3352 :#CRAM TEST OF JUMP(I) ON BR7 SET NICRO-PROCESSOR INSTRUCTION. 
3353 4#SET THE BR? BIT, PERFORM THE JUMP INSTRUCTI 
3354 *#VERIFY THE JUMP’ DID OCCUR BY CLOCKING T HE, TNGAUCTION 
3355 ;#IN THE LOCATION IT IS AT. THIS INSTRUCTION LORDS THE 
| 3356 4BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
| 2357 j ATHE BR DATA IS MOVED TO PORTH. IF THIS DAT a IS CORRECT, 
| 
! 
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035530 


025264 
035450 


035530 


025324 
035450 


035530 


001226 
001216 
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001366 
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001e20 


CRAM JUMP TESTS 


TST4H1: 


1§: 


2s: 
3$: 


4§: 
S$: 


6$: 


FOL 


PAGE: 


5s RERRERRE REEL REEL E LARA RAE E AERA LE RAAA EERE RE AE LEAALA AE REALL SLES 


; TEST 41 


Mov #41, TSTNO 
MOV #TST42, NEXT 
MO #15, 


v Lock 
MSTCLR 
BIT #81T1S,STATL 
BEQ $42 
JSR PC, MEMSET 
JSR PC, SETBR7 
ROMCLK 
100400 
ROMCLK 
114377! <400%7> 
JSR PC, RAMDAT 
377 
CMPB =—s- R&S, R4 
BEQ 25° 
HLT S 
SCOP 


MOV #3$, LOCK 
JSR PC, SETBR7 


ROMCLK 
1004 

ROMCLK 

100000! <400%7> ; 
JSR : t 
CMPB ss RS, R4 

BEO 4g 

HLT 5 

SCOP1 


MOV #5, LOCK 
JSR _—- PC, SETBR7 


ROMCLK 
1004 
ROMCLK 
104125! <4007> 
ise PC, RAMDAT 
CMPB RS,R4Y 
BEQ 6$ 

T 5 
SCOP1 
SCOPE 


; NEX I 
JUMP TO ROM PC OF O 


STRUCTION, ROMCLK PC=5304 
INSTRUCTION, ROMCLK PC=5304 


-BR IF YE 
“ERROR, CRAM PC IS WRONG 
LOOP tO. to 18 IF SWO9=1 


;SET_THE BR7 BIT’ 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


3 
S INSTRUCTION, ROMCLK PC=5304 


;R4=CRAM PC (LSB 8 BITS) 
*EXPECTED DATA 

-TS ROM PC CORRECT? 

*BR IF YES 

‘ERROR, CRAM PC IS WRONG 
“LOOP TO 3$ IF SWO9=1 


;NEW SCOP1 


saeT THE BR7 BIT’ 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
;START AT ROM PC=6 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;JUMP_ TO PC OF 52S 

*R4=CRAM PC (LSB 8 BITS) 

EXPECTED DATA 

31S PC CORRECT? 


F 
SCOPE THIS TEST 


se RnAN TEST OF JUMP(1) ONC TEST YO MRRRRRRRRERREAREAE REAR EEEEE 


;#CRAM TEST OF JUMP( 


C_BIT SET MICRO-PROCESSOR INSTRUCTION. 


*#CLEAR THE C BIT, PERFORM THE JUMP INSTRUCTION, 


O2le 


GO1 


3471 025550 104401 6$: SCOP1 ;LOOP to S$ IF SWS59=1 


DZ0NG MACY! 87(1005) O7-NAR-77 18:52. PAGE &7 , PAGE: 0212 
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3416 ;#VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 

3417 :¥IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 

3418 ; BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 

3420 See ER eee 1S CORRECT. IP THE GRAN PC 4S NOT Richt 

3421 #THEN PORTY CONTAINS A 37 

siss . s LHKERRAKLERRREGRR RARE LRA LLL AA ALLA A AAA LAA KERALA LALLA LALA LAL ELK EKE 

se ; TEST 42 

3426 025360 012737 OO0042 o01226 TST4¥2: MOV #42, TSTNO 

3427 025366 012737 O25554 OO0lel6 MOV #TST43, NEXT 

3428 025374 012737 O25420 001220 MOV #15, LOCK 

3431 025404 032737 100000 001366 BIT #B1T1S,STOT1 be IT ¢ 

3432 025412 001457 BEQ 6$+2 : SKIP ier IF NO 

3433 Ges414 004737 035634 - JSR PC, MEMSET :SET MEM AND RAM 

3435 025420 004737 035410 ; JSR PC, CLRALL ;CLEAR ALL CONDITIONS 

Sua? peewee | {DOOD FOOSOO GL Mee peel wersOn, RONCLE PC=EION 

338 Geeta iON) ROME, scox2> sNEXT WORD TS, INSTRUCTION, ROMCLK PC=5204 

sto debs 34 004737 035530 ISR * PC, RAMDAT sRYSCRAM PC (LSB 8 BITS) 

3442 OeS442 120504 CMPB sR, RY 1S ROM PC CORRECT? 

3443 025444 001401 BEG 2 BR IF YE 

3444 025446 104005 HLT 5 ; ERROR CRAM PC IS WRONG 

3445 O254S0 104401 2s: SCOP1 “LOOP TO 1$ IF SWO9=1 

sie G2b\be 012737 oOeS460 001220 “ MOV #3, LOCK *NEW SCOP] 

3448 O2S460 004737 035410 : JSR PC, CLRALL sCLEAR ALL CONDITIONS 

EAE Deeye4 1Gu414 ROHCL K ‘Sent ar IS INSTRUCTION, ROMCLK PC=5304 
| 3451 025470 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
| 3452 025472 101000 100000! <400*2> ;JUMP TO’ROM PC OF O 

3453 025474 004737 035530 JSR PC, RAMDAT jRMSCRAN PC (LB 8 BITS) 

syec Waste BS ToOSeH at CHPB RS,R4 ?1S ROM PC CORRECT? 

3456 025504 001401 BEG 4g ‘BR IF YES 

3457 025506 104005 S : ERROR CRAM pC IS WRONG 

3458 025510 104401 4g: SHOP LOOP, to. 38 1 F SWO9=1 

EA bessle 012737 o25520 001220 he MOV #5$, LOCK : NEW 
| 3461 025520 004737 035410 } JSR PC,CLRALL ;CLEAR ALL CONDITIONS 

3462 025524 10414 ie iN XT WORD IS INSTRUCTION, ROMCLK PC=5304 
| Beh Gee Innis ROMA, sana IREXT WORD. 1S, INSTRUCTION, RONCLK PC=5304 
| sub Ge5534 004737 035530 JSR * PC, RAMDAT irae Pe {LSB 8 BITS) 
| 3468 Oessue TSOSD4 CMPB =—saR'S,, RH *TS ROM PC CORRECT? 
| 3469 025544 001401 BEQ 6$ -BR IF YE 
' 3470 Oe5546 104005 HLT S “ERROR, CRAM PC IS WRONG 
! 
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au7e g2essse 104400 SCOPE ;SCOPE THIS TEST 

3474 

3475 j RRARKKEE LEE ERE ELELLLARAK ES TEST 4S KESRSRRRAS ALARA LALASAELAEEESE 

3476 #CRAM TEST OF JUMP(I) ON 2 BIT SET MICRO-PROCESSOR INSTRUCTICN. 

3477 j CLEAR THE 2 BIT, PERFORM THE JUMP INSTRUCTION, 

3478 ;HVERIFY THE JUMP’DID NOT OCCUR BY CLOCKING THE’ INSTRUCTION 

3479 ;#IN IN THE Loce LOCATION IT IS AT. THIS INSTRUCTION Load 

3480 LOWEST 8 BITS OF THE CRAM PC. att HIS POINT 

3481 5 BR DATE e MOVED TO PORT4. IF THIS DATA IS CORRECT 

3482 THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 

3483 :#THEN PORTY CONTAINS A 37 

wise s REKERERKARRERAL LER AAR ERAALRRRA LALA AAA AKA RASS SALE LEAL KAA AE KL LAKE 

S86 ; TEST 43 

3488 025554 012737 000043 001226 TST43: MOV #43, TSTNO 

3489 025562 012737 025750 OO!e!6 MOV #TST44, NEXT 

3490 025570 012737 025614 001220 MOV #15, LOCK 

3491 ;R1_ CONTAINS BASE DMC11 ADDRESS 

3492 025576 104412 MSTCLR "MASTER CLEAR DMC11 

3493 025600 032737 100000 001366 BIT #BIT1S,STAT1 31S IT CRAM? 

3494 025606 001457 BEQ b$+2 :SKIP TEST IF NO 

s136 O25610 004737 035634 - JSR PC, MEMSET *SET MEM AND RAM 

3497 aaatt 004737 035410 JSR PC, CLRALL CEA ALL CONDITIONS 

3498 025620 104414 ROMCLK XT WORD IS INSTRUCTION, ROMCLK PC=S304 

3499 OeS622 100400 100400 ‘START AT ROM PC=0 

3500 025624 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3501 02526 115777 114377! <400*3> : JUMP TO ROM PC OF 1777 

3502 025630 004737 035530 JSR PC, RAMDAT *R4=CRAM PC (LSB 8 BITS) 

3503 025634 000001 1 ‘EXPECTED DATA 

3504 025636 120504 CMPB sR, R4 ?TS ROM PC CORRECT? 

3505 025640 001401 BEQ 2 ;BR IF YE 

3506 O25642 104005 HLT 5 ERROR CRAM Pc IS WRONG 

3507 O2S5644 104401 2s: SCOP1 LOOP to gis 1 F SWO9=1 

3508 Oesbi6 012737 o25654 001220 MOV #3, LOCK *NEW SCOP 

3510 025654 004737 035410 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 

3511 OeS5660 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3512 OeS662e 100403 100403 ; START AT ROM PC=3 

3513 025664 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3514 025666 101400 100000!<400*3> ;JUMP TO’ROM PC OF O 

3515 025670 004737 035530 JSR PC, RAMDAT sR4=CRAM PC (LSB 8 BITS) 

3516 025674 000004 4 *EXPECTED DATA 

3517 025676 120504 CMPB =—saR®S,, R4# 1S ROM PC CORRECT? 

3518 001401 BEQ 4g IF YES 

3519 025702 104005 HLT S ERROR CRAM PC IS WRONG 

3520 025704 104401 4g; SCOP1 LOOP to F SWO9=1 

3521 025706 012737 025714 001220 es MOV #5$, LOCK “NEW SCOP 

3255 a56 025714 004737 035410 ISR PC, CLRALL ;CLEAR ALL CONDITIONS 
| 3524 05760 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
| 3525 722 100406 100406 ‘START AT ROM PC=6 
| 35206 025724 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
| 
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3528 025730 004737 035530 ISR PC, RAMDAT ;RY=CRAN PC (LSB 8 BITS) 
3529 025734 000007 ? * EXPECT TA 
3530 025736 120SC4 CMPB = RS,, R4 *TS ROM PC CORRECT? 
3531 025740 001401 BEQ 6$ iB IF YE 
3532 025742 104005 HLT 5 RROR Ra Pc IS WRONG 
3533 025744 104401 6S: SCOP! :LOOP to S$ IF SW59=1 
3534 025746 104400 SCOPE : SCOPE eure TEs? 
3536 
3537 ; RRAAELALLAHLLAAELAKELLAAREE TEST 44 RHRRRRARAARAR EAL AA LALERERES 
3538 #CRAM TEST OF JUMP(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION. 
3539 *#CLEAR THE BRO BIT, PERFORM THE JUMP INSTRUCTION 
3540 *#VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 
3541 -#IN THE LOCATION IT IS AT. THIS INSTRUCTION. Lon T 
3542 :#BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
3543 -#THE BR DATA IS MOVED TO PORTY. IF THIS Sara IS CORRECT 
3544 THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
3545 ;#THEN PORTY CONTAINS A A 37 
a] s RELA KARHAKRKSARLKEEREEEELLERA RA RA LARA LS LALA AAA AAAERAA AAA AEA LEE 
3548 ; TEST 44 
3550 025750 012737 oODD044 001226 TST44: MOV #44, TSTNO 
3551 025756 012737 O26144 OOle16 MOV #TST4S NEXT 
3552 025764 012737 O26010 001220 MOV #15, LOCK 
3553 ;R1 CONTAINS BASE DNCLL ADDRESS 
3554 025772 104412 MSTCLR "MASTER CLEAR DMC11 
3555 025774 032737 100000 001366 BIT #BIT1S,STAT! ;IS IT CRAM? 
3556 Oe6002 001457 BEQ $+2 :SKIP TEST IF_NO 
3557 Ceb004 004737 035634 a JSR PC, MEMSET >SET MEM AND RAM 
3559 OSep Sat 004737 035410 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
3560 O26014 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3561 026016 100400 100400 :START AT ROM PC=0 
3562 O26020 104414 ROMCLK * NEXT IS INSTRUCTION, ROMCLK PC=5304 
3563 Oe6022 116377 114377! <400%4> : JUMP TO ROM PC OF 1777 
3564 026024 004737 035530 JSR PC ,RAMDAT *R4Y=CRAM PC (LSB 8 BITS) 
| 3565 000001 1 *EXPECTED DATA 
| 3566 026032 120504 CMPB sR, RY ?TS ROM PC CORRECT? 
3567 026034 001401 . BE 23 ; 
3568 026036 104005 HLT S “ERROR, CRAM PC IS WRONG 
3569 O26040 104401 2s: SCOP1 :LOOP to is IF SWOS=1 
| 3570 O26042 012737 oe260S0 001220 “ MOV #3$, LOCK *NEW SCOP 
| 3572 O26050 004737 O35410 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
3573 026054 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3574 026056 100403 100403 :START AT PC=3 
3575 Oe6060 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
3576 Ocb062 igzagg 100000!<400%4> ;JUMP TO’ROM PC OF 
3577 026064 737 035530 JSR PC, RAMDAT sR4=CRAM PC (LSB 8 BITS) 
3578 026070 000004 y *EXPECTED DAT 
3579 026072 120504 CMPB sR, R4 ils ROM PC CORRECT? 
; 3580 026074 001401 BEG u§ F YES 
| 3581 026076 104005 HLT S “ERROR, CRAM PC IS WRONG 
3582 026100 104401 4S: SCOP1 *LOOP to. 38 IF SWO9=1 
| 3583 026102 012737 026110 oo1220 MOV #5$, LOCK NEW SCO 
i 
! 
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3584 026110 - cS: 

3585 026110 004737 035410 JSR PC, CLRALL s CLEAR fut CONDITION 

3586 026114 104414 ROMCLK 1S INSTRUCTION, ROMCLK PC=S304 

3587 026116 100406 190406 RT AT ROM PC=6 

3588 026120 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

3589 Oeblee 106125 104125! <400*4> : JUMP TO ROM PC OF S25 

3590 026124 737 035530 JSR PC, RAMDAT *R4=CRAM PC (LSB 8 BITS) 

3591 Oe6130 000007 ? “EXPECTED DATA 

3592 026132 120504 CMPB sR, R4 :1S ROM PC CORRECT? 

3593 026134 001401 SEQ 6$ °BR IF 

3594 026136 104005 HLT S ;ERROR, CRAM PC_IS WRONG 

3595 026140 104401 6S: SCOP1 LOOP to S$ IF SW59=1 

3536 026142 104400 SCOPE :SCOPE THIS TEST 

3598 

2233 ; RERLEREAEARERERENREREREHREE TEST YS RRR RRRRER RARER ERLE EEL EES 

3600 #CRAM TEST OF JUMP(I) ON BR1 SET MICRO-PROCESSOR INSTRUCTION. 

3601 ?#CLEAR THE BR1 BIT, PERFORM THE JUMP INSTRUCTION 

3602 VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 

3603 :#IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 

3604 4#BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 

3605 THE BR DATA IS MOVED TO PORTY. IF THIS DATA IS CORRECT 

3606 THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 

3607 janie PORTY CONTAINS A 

Fai RHEE R RARER ARAG EKER AA RRS AERA RAKE A RAR RRARALAARARLA RE LEL AES 

3610 ; TEST 45 

3612 O26144 012737 200045 001226 TSTYS: MOV #45, TSTNO 

3613 026152 012737 026349 O01216 MOV #TST46, NEXT 

3614 026160 012737 O26204 001220 MOV #15, LOCK 

SHE pzsise jou ngTus usE OREN RE PeH FOOESS 

3617 sta Aoa74s 100000 001366 BIT #BIT1S,STATL  :IS TERR? 
| 3618 026176 001457 BEQ 6$+ -SKIP TEST IF NO 

3619 Deb200 004737 035634 * ISR PC, MEMSET :SET MEM AND RAM 
| 3621 nae 004737 035410 ISR PC, CLRALL CoA ALL CONDITIONS 

3622 O26210 104414 ROMCLK xT Hono 1S ais INSTRUCTION, ROMCLK PC=5304 
| 28 Beis ian sore eat MIRD'TS STRUCTION, RONEL 5304 

3625 Oebel6 116777 PeUSee! <uODKS) ext WORD Is, 1 

3626 Oe6220 004737 035530 JSR PC, RAMDAT RU CRAM PC csp % Arts) 

36¢7 Sebees 000001 1 ‘EXPECTED DATA 

120504 CMPB sé, R4 *TS ROM PC CORRECT? 

3629 026230 001401 BEG 2 *BR IF 

3630 Oe62e32 104005 ; HLT S ERROR CRAM, Pc IS WRONG 

3631 O26234 10440 2s: SCOP1 LOOP to 18 I F SWO9=1 

abe 026236 012737. 026244 001220 1 MOV #3$, LOCK “NEW SCOP 

3634 pepsi Sp 004737 035410 JSR PC, CLRALL sCLEAR ALL CONDITIONS 

3635 026250 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
| 3636 Oe6252 100403 100403 :START AT ROM PC=3 
| 3637 O2e6e54 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
| 3638 026256 102400 190C00!<400%S> ;JUMP TO’ROM PC OF O 
| 


3639 Oe6260 004737 035530 JSR PC, RAMDAT ;R4=CRAM PC (LSB 8 BITS) 


ne -_— < ° - - --——— o  e 
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3640 026264 0009004 4 sEXPECTED DATA 
3641 Oe6266 120504 CMPB sR, RH is ROM PC CORRECT? 
364, de6670 051401 BEQ 4g ;BR IF YES 
364 104005 HLT S ; ERROR CRAM PC_1S WRONG 
3644 Debe7s O4401 4g: SCOP LOOP _ To 3s F SWO9=1 
364S 12737 026304 001220 MOV #5$, LOCK NEW 
Fu? GSeso4 004737 O3S410 _ PC, CLRALL AR OND 
a Geeai0 ibis RORCL , ara tk INSTRUCTION, ROMCLK PC=5204 
reg poesia = tpautg ROMCLK tNEXT WORD IS ae ROMCLK PC=5304 
3651 026316 106525 104125! <400«5> : JUMP_ TO ROM 525 
035530 JSR PC, RAMDAT sBNSCRAN PC (LSB 8 BITS) 
3654 O263e6 120504 CMPB —saRS,, R4 TS ROM PC CORRECT? 
3655 026330 001401 BEQ 6$ BR IF ES 
3656 O26332 104005 HLT 5 iFRR PC IS WRONG 
3657 026334 104401 6S: SCOP1 ; LOOP to S$ IF SW59=1 
3658 026336 104400 SCOPE :SCOPE THIS TEST 
3660 
3661 5 RARER EREE TEST 4G RRRRRM EEE ERREL EEE EE EELS 
sees seca TST Oe Sur ERORT THE JURE Tne TRUCT ION wanes 
3664 , VERIFY THE J ure oto No T OCCUR BY CLOCKING THE INSTRUCTION 
3656 aan E Loca ion Seat berts OFF Inst Pet toes BO INT 
eer iNffe Bu pain Te fOveD 10 Bok. Te Tis Ga 15, COahect 
3669 ene PORTY CONTAINS A "hp 
wee s REERERRERG RARER RARER AREA RAAR RRA RAAA REAR ERA EEE AA AES 
672 ; TEST 46 
3674 026340 012737 OO00% 001226 TST46: MOV #46, TSTNO 
3675 026346 012737 026534 001216 MOV #TST47, NEXT 
3676 026354 012737 O26400 001220 MOV #15, LOCK 
Er cee sow retour Austr tee omer oe 
3679 O2b364 C327 37 1 001366 BIT 91715, STATI HIS it CRAM? 
3680 1457 BEO 6$+2 :SKIP TEST IF NO 
3681 Debs7i 004737 035634 = JSR PC ,MEMSET >SET MEM AND RAM 
oes aS 004737 035410 ’ JSR PC, CLRALL 3C 
oe OE IOw4 Ron INERT WORD, 1S INSTRUCTION, ROMCLK PC=S304 
see? Goenie taeae? Hose uoDKG> iNEXT 14 nO 15 INSTRUCTION, celtanassietcant 
3688 Oey bo4 37 035530 jSR = PC,RAMDAT ‘ays =CRAN PC LSB 8 BITS) 
36a pseass oped QupB RS, RY TS Rin Bc” Connect 
3691 O26424 001401 BEQ 25 BR IF YES 
Bseus6 | tBuaoe 25 Pl oor to 1s F’sibsere 
| 3694 26432 012727 O26440 oD1220 MOY  -&3$, LOCK : NEW " 
3695 O26440 3S: 
| 
| 
Boa ie . cs AG ee LON be ae ste nn ake See 
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36% O26440 004737 035410 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 

3697 Oeb444 104414 ROMCLK *NEXT WORD IS INSTRUC ON, ROMCLK PC=S304 

3698 026446 100403 100403 START AT ROM PC=3 

3699 026450 104414 ROMCLK *NEXT WORD Is INSTRUCTION, ROMCLK PC=5304 

3700 Oe6452 103000 100000! <400%6> ;JUMP TO'’ROM PC OF 

3701 O26454 004737 035530 JSR PC, RAMDAT sR4=CRAM PC (LSB 8 BITS) 

3702 Oe6460 000004 4 “EXPECTED DATA 

3703 Oeb462e 120504 CMPE = RS, R4 :1S ROM PC CORRECT? 

3704 O26464 001401 BEQ 4§ ;BR IF YES 

3705 026466 104005 HLT S : ERROR CRAM Pc IS WRONG 

3706 026470 104401 4g: SCOP1 ‘LOOP To 3$ IF SWO9=1 

3707 Geb7e 12737 026500 001220 1 MOV #5$, LOCK *NEW SCOP1 

3709 26500 004737 035410 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 

3710 O26S504 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3711 026506 100406 100406 >START AT ROM PC=6 

3712 026510 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3713 Oe6Sl2 107125 104125! <400*6> > JUMP TO ROM PC OF S25 

3714 026514 004737 035530 JSR PC, RAMDAT *RY=CRAM PC (LSB 8 BITS) 

3715 O26S520 000007 “EXPECTED DATA 

& OebSe2e } CMPB sR, R4# °1S PC CORRECT? 

3717 Oe6Se4 001401 BEQ 6$ ;BR IF YES 

3718 O26526 1 HET S “ERROR, CRAM PC IS WRONG 

3719 026530 10440] 6S: SCOP1 :LOOP to S$ IF SW59=1 

3720 026532 104400 SCOPE *SCOPE THIS TEST 

3722 

3723 5 EERLALERERRERERERRRREREHREE TEST 47 SRRRRRREREEE EERE LEELELELERE 

3724 *#CRAM TEST OF JUMP(I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION. 

3725 #CLEAR THE BR7 BIT, PERFORM THE JUMP INSTRUCTION 

3726 S4VERIFY THE JUMP oto NOT OCCUR BY CLOCKING THE INSTRUCTION 

3727 : #IN THE LOCATION IS AT. THIS INSTRUCTION LOADS THE 

3728 :#BR WIT THE LOWE T 8 BITS OF THE CRAM PC. AT THIS POINT 

3729 setts Bae ATA SO vER TO PORTY. IF THIS DATA IS CORRECT 

3730 ¥THE CRAM PC I CORRECT IF THE CRAM PC IS NOT RIGHT, 

3731 ene PORT4 CONTAINS A 
i = RHEE RE REG ERREEE RRA GREER ERA REAR RRL AR RRA LEAK ER RRA LER SAAREAAAE 
3734 ; TEST 47 

3736 026534 012737 000047 on1226 TST47: MOV #47, TSTNO 

3737 OebS42 012737 026730 001216 MOV s7StSO, NEXT 

3738 026550 012737 026574 001220 MOV #15, LOCK 

3739 ;R1 CONTAINS BASE DMC11 ADDRESS 

3740 O26556 104412 MSTCLR “MASTER CLEAR DMC1 

3741 026560 032737 100000 001366 BIT #BITIS,STAT1 ;IS IT CRAM? 

3742 026566 001457 BEQ + -SKIP TEST IF NO 

3743 026570 004737 035634 ss JSR PC, MEMSET :SET MEM AND RAM 

3745 SP sf ey 004737 035410 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 

374 O26600 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3747 Oeb602e 1 100400 “START AT ROM PC=0 

3748 O26604 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3749 026606 117777 114377! «400%7> > JUMP TO ROM PC OF 1777 

3750 026610 004737 035530 JSR PC, RAMDAT *R4=CRAM PC (LSB 8 BITS) 

3751 026614 000001 1 : TA 
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CRAM JUMP TESTS 


es: 
026634 


035410 


001220 


035530 


4S: 
S$: 


026674 
035410 


00:220 


035530 


6$: 


TSTSO: 


000050 
02774e 
100000 


000001 


027740 
010000 


ne a re 
' 
es 
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PAGE: 0219 
CMPB eS, R4 iS ROM PC CORRECT? 
BEQ 2s *BR IF YES 
HLT 5 “ERROR, CRAM PC IS WRONG 
SCOP LOOP fo 1$ IF SWO9=1 
MOV #3$, LOCK "NEW SCOPI 
JSR PC, CLRALL ; CLEAR ITIONS , 
ROMCLK * NEXT 18° THe TRUCTION. ROMCLK PC=S304 
100403 :START AT =3 
ROMCLK "NEXT WORD IS INSTRUCTIG's, ROMCLK PC=5304 
100000! <400%7> ;JUMP TO’ROM PC OF 
JSR —__ PC, RAMDAT sR4=CRAM PC (LSB 8 BITS) 
4 >EXPECTED DAT! 
CMPB. sR, RY "TS ROM PC CORRECT? 
BEQ 4§ BR IF YES 
HLT 5 “ERROR, CRAM PC_IS WRONG 
SCOP1 :LOOP to 3$ IF SWO9=1 
MOV #S$, LOCK *NEW SCOP] 
JSR PC, CLRALL : ONDITIONS 
ROMCLK A 354i ! WORD 1 INSTRUCTION, ROMCLK PC=5304 
100406 :START AT ROM PC=6 
ROMCLK *NEXT IS INSTRUCTION, ROMCLK PC=5304 
104125! <400%7> : JUMP TO OF S25 
J PC, *R4=CRAM PC (LSB 8 BITS) 
? “EXPECTED DATA 
CMPB sR, R4# *1S ROM PC CORRECT? 
BEQ 6$ *BR IF 
HLT 5 ERROR PC IS WRONG 
SCOP1 -LOOP to S$ IF SW59=1 
SCOPE >SCOPE THIS TEST 
Se Se SE ab aE EE a a a a a a a a aE SO AHAKRKKKEKSRERHRLARKLKE KEL E KE 
FREE RUNNING FLAG MODE DATA TEST 
*# TRANSMIT A AND VERIFY THE RECEIVED DATA 
:#IF NO CTOR IS ON LIN UNIT LOOP IS SET. 
*#ALL FOLLOWING TE RUNNING AND ARE PERFORMED 
*#ONLY ON DMC’S WI LIN UNITS. IF YOU WISH TO PERFORM 
THE I ON ( Y THE FREE RUNNING TESTS 


THESE FREE RUNNING TESTS ON A 
sAWILL FAIL ON A KNC, THE TIMER 1S 100 FAST) THEN YOU MUST 

: Y SET BITO OF STATS IN STATUS MAP. 

5 RELL EERELE EERE EEA EERE ERE RE REE REE REERERE SERS EERE ERE EE 


#50, TSTNO 
8TStS1, NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 
BIT #BITIS,STAT! IS i A DMC? 
BEQ 41 ;6R IF YES 
BIT #81T0,STAT3 :KMC WITH BITO SET? 
BNE 46 iBR F YES 
JMP i4s :SKIP TEST 
BIT #BIT12,STAT1 § ;LU PRESENT? 
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027000 001 BNE .-12 BR IF NO 
3e08 | BS7Dbe 325 gacse2 JSR PC, WROM SERITE HAP IN CRAM 
3810 027006 13700 034740 HOV COUNT, RO i CLEAR RECEIVER 
sie arta 1 Nee MOV SRAUF,R2 > CLEAR Sut REEVE 
3813 027022 105022 10S: CLRB (Re)+ : CLEAR BUFFER 
o 2 
Sie pevhee Obi ave BRE CAS ioe 
3816 027030 CLR TFLAG :SET TFLAG 
3817 027034 034670 SLR RFLAG *SET RFLAG TO O 
3818 027040 012711 O40000 MOV #B1T14, (RL) ‘MASTER CLEAR 
3819 027044 0320737 100000 001366 BIT #BITIS;STAT1  ;CRAM? 
3820 027052 001402 +6 BR IF NO 
3821 027054 012711 100000 V #BITIS, (R1) TF CRAM SET RUN 
3822 027060 105227 o00000 I : DELAY 
3823 027064 001375 BNE - : DELAY 
3824 027066 005037 001416 CLR TEMP ‘GET SET TO DELAY 
3825 027072 005711 1S: TST (RL) RUN SET? 
BF ere HEF ome mite ine bey 
3 
3B59 OBP10e DbLae4 BNE AR IF ROT. DONE 
3829 027104 104014 HLT 4 : RUN NOT SET 
3830 027106 000771 BR 1$ TRY AGAIN 
3831 110 032737 O40000 001366 BIT #B1T14,STAT1 | TURNAROUND CONNECTOR? 
3832 027115 001002 BNE + *BR_IF 
3833 027120 052711 oo4o000 BIS #BIT11, (RL) *SET LINE UNIT LOOP 
3834 027124 152711 000043 BISB843, (RI) : 
3835 027130 005037 OO14I6 CLR TEMP GET SET TO DELAY 
3836 027134 105711 2s TSTB Ss CR) “ROI SET? 
3837 027136 100404 BMI +12 BR IF YES 
3838 027140 005237 o01416 INC TEMP INC DELAY 
3839 027144 001373 BNE 2s ‘BR IF NOT 
3840 027146 104014 HLT 14 43 RDI NOT SET 
3841 027150 012761 035010 oo0004 MOV SBASE,4(R1) SET UP \BASE ADDRESS 
3842 027156 1 000 CLR 6(R1) *CLEAR COUNT 
3843 Oe7162 142711 OO0D40 B #40, (RI? CLEAR ROI 
3844 027166 37 OO1416 C TEMP GET SET TO DELAY 
355 027172 10571 3S: TSTB ss CRI) *1S RDI GONE? 
7174 8S *BR IF YES 
3847 027176 005237 O01416 INC TEMP INC DELAY 
3848 001373 3$ :BR TF NOT DONE 
3849 105761 oo000e2 TSTB —s- BCR) 1S THERE A CNTL O ERROR 
3850 027210 100011 BPL 18$ BR IF NO 
385 Oe7ele 016137 00004 oD125e2 MOV *+4(R1), TEMPS :SAVE SELY FOR TYPEOUT 
016137 000006 001254 NO 6(R1); TEMP4 SAVE SEL6 FOR TYPEOUT 
027226 104016 HLT 16 *CNTL 0 ERROR 
354 30 000137 027740 IMP 14$ FATAL ERROR STOP 
Eel 104014 igs: HLT 14 ERROR RDI STILL SET 
ee 72% 152711 000041 BISB #41, (RL) ;ASK FOR CNTL I 
3858 Gere 108711 64S: TSTB j :WAIT FOR ROI 
S0Ste1 000006 CL B(RL) ioe FUL DUPLEX 
| Sh eee ter Ba ow fe me ine 
| 3863 027260 100776 BMI 65$ *BR IF YES 
| 








BOe 
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DZDMGB.P11 O7-NAR-77 11:21 FREE RUNNING TESTS 
3864 027262 152711 000044 
3865 027266 005037 OD1416 a Ree eect 
3866 bree 105711 4g: TSTB ss (RL) it abi sete 
: 
meee 27676 aDse S? o01416 eG EHB OR LAY 
1373 BNE 4§ Ne Oe 
3870 Ge7a0 10N014 HLT = SRR ROL NOT SET 
027306 1 034742 000004 #RBUF ; 
3872 Ge7314 013761 034740 O00006 NOV RCoUNt brad) it OAD REC BOUNT 
73 GSesse doscee Ooiaie BUR #9, (RL) s CLEAR Fat 
3875 Oe7332 105711 cs: TSTB (R1) : aoe aeons) 
3876 027334 100004 oe +12 jROI GONE” 
3877 027335 005237 01416 INC TEMP PR bess 
3878 Oe7342 001373 BNE cs bane Pho. 
$00 te ea iea7i1 Bis #40 (R1) sERROR a 
3881 Oe735¢ 005037 001416 CLR TEMP py eto 
3e8e Ge7se6 106711 6S: TSTB = (RL) :RDI ae oo 
3884 De73be O0Se97 O01416 st sBR IF YES 
3885 027366 001373 be t«éSS 5 INC DELAY 
38986 027370 104014 a4 C1 "BR IF NOT DONE 
3887 027372 012761 034674 000004 HT our acrt) TERRI BUFFER 
3888 perio 013761 034672 000006 MOV TCOUNT,6(R1) ;LOPD eal 
3889 142711 O00040 Bice «#40, (RIL) : 
3890 27412 005037 001416 C TEN? i cLEAR Ret 
sok tad) ibe 7$: TSTB (R1) iBT aa ? — 
: ” 
33) Geriee Oisex O014I6 eats 388 IF YES 
027455 001373 TNC DELAY 
wa fetes Wee BNE . ‘BR IF NOT DONE DELAY 
389 027432 005037 001416 168: CLR ‘TEMP ET petay 
3897 Ger 36 012737 000022 001246 "MOV 822, TEMP1 ‘eT ar ie 
22 cera 105761 000002 118: STB acrid. : RDO arr sore 
3300 erie Gosex7 O01%16 an coc iP bel ae 
1 oe7486 001372 ae OOS ENC ELT aw 
3902 027460 005337 001246 BEG OCT jBR IF DELAY NOT DONE 
3603 027464 001367 ce ine sDEC DELAY COUNT 
Sos Gore 016137 HT = 14 SERROR RDO NOT SET” 
a 016137 oo00002 001250 17S: HOV 2¢R1), TEMPE :SAVE SEL2 
3307 4014 MT 8 (id HERROR: ft SEL2 = Ott!!! 
a Sl ae 
BL ee a 2 ee ae 
4 : 
zat O40 | sited epask HLT 4 ‘ERROR MULTIPLE XMIT DONES 
a 02759 13¢761 000001 ob0d0e BIB telt0, 2c ei ee 
1 nea 104014 i ; iF NO 
sale tere! HLT i¥ :*XMIT ERROR 
3318 o27560 ara ——— st yah ee iXRTT GA CORRECT? 
027552 104014 HLT i4 *XMIT BA ERROR 





a 27( 1006) 


8 


é 


BR Urea Cre arg 
: 


——OO00O~— 
—Srumorue re 
SBONESSSS 5585 sea0S8 


FE 


= 
& 


2sé~ 
—cC—W) 


as 


BR 


030170 


—- OO 


z 
= 88 


g 
g 


2B 
2 
R 
S 


re 
a 
8 
8 


-MAR-77 15: 
2l 


034672 000006 


000207 000002 


177777 +=034670 


000001 000002 


034742 000004 


034740 000006 


000207 o00002 
034670 


000051 0012e6 
001216 


100000 001366 
000001 001372 


Cle 
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FREE RUNNING TESTS 
CMP meee ; COUN 


BEQ : 
HLT iv *XMIT COUNT ERROR 
BICB #207, 2(R1) “CLEAR RDO AND BITS 0-2 
BR 15 : CONTINUE 
13$: TST RFLAG *FIRST TIME HERE? 
BEQ +4 *BR IF YES 
HLT “ERROR MULTIPLE REC DONES 
MOV #-1, RFLAG :SET RFLAG TO -1 
BITB #BItO,2(R1) -IS IT CNTL O 
BEQ +4 ?BR IF NO 
HLT i4 RECEIVE ERROR 
CMP #RBUF , 4(R1) *REC BA CORRECT? 
BEQ +4 *BR IF YES 
HLT i4 "REC BA ERROR 
CMP RCOUNT,6(21) § ;COUNT OK? 
BEQ +4 *BR IF YES 
HLT i4 *REC COUNT ERROR 
MOV RCOUNT, RO GET SET TO CHECK DATA 
MOV #TBUF , Re ‘RO POINTS TO a 
MOV #RBUF *R3 POINTS TO RECEIVE DATA 
QS: MOV R3, TEMP2 “SAVE ADDRESS FOR TYPEOUT 
MOVB = (R2) +, RS *RS = XMIT DATA 
(R3)+, "RY = RECEIVE DATA 
CMPB sR, R4 *CHECK DATA 
Q +4 *BR IF OK 
HLT i3 “DATA ERROR 
DEC RO DEC COUNT 
BNE 9 *BR IF NOT DONE 
TST (R32) *THIS SHOULD BE O, ELSE 
BEQ : *IT RECEIVED TO MUCH?! 
HLT i4 ERROR 
BICB #207,2(R1) ‘CLEAR RDO AND BITS 0-2 
158: TST RFLAG *REC DONE? 
BEQ 16$ *BR IF NO 
TST TFLAG XMIT DONE? 
BEQ 16$ °BR IF NO 
14$: SCOPE “SCOPE THIS TEST 


J oT 7 peeaeaeeaaamaaass TEST S] 4XXRSRRAREREERREAKALELEREEE 


VERUN TES 

;*#IN FREE RUNNING MODE SEND MESSAGE WITH NO RECEIVE 

;*BUFFER AVAILABLE, VERIFY THAT AN OVERRUN ERROR OCCURS 
METeritiiiiitititiiiitititititiitiititiitirtittirttterterirrr ry 


; TEST Sl 


TSTS1: MOV #51, TSTNO 
MOV #TStS2, NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR “MASTER CLEAR DMC11 
SBITIS,STAT! 31S IT A DMC? 


.+16 ; YES __ 
BIT #8ITO,STAT3 ;KMC WITH BITO SET? 
.+6 ;BR IF YES 





DOe 





fALOST DATA TEST. TEST SQ RRRRERERERRARERERAERLLERLES 


DZDMG MACY11 27(1006) O7-MAR-77 15:S2 PALE PAGE: 0223 
DZDMGB.P11  07-MAR-77 11:21 FREE RS NAING TESTS 
3976 030000 000137 030152 IMP 10$ SKIP TEST 
3977 030004 032737 010000 0013t6 BIT #81T12,STAT U PRESENT? 
3978 030012 001372 BNE .-12 NO 
3300 fa00e0 BON?S? | Oseze Jen PC’ BRSELD inate MT PORD DME BASE ADDRESS 
3381 030024 O05. 036252 JSR RS, XFRELD sLOAD xmiT BA/CC 
3983 Nerney 000044 4y *CC 
3984 530034 12700 900019 Mov #10, RO RO = RETRANSMISSION COUNT 
3288 030044 gros SOT ae CLR Te *CLEAR DELAY COUNTER 
030050 108761 ooo002 1$: STB 281) i1S RDY seen’ 
S3e6 = fer SOoe hoes 001416 . INC TEMP ‘INC DELAY COUNTER 
oy ies Bs sane bc bey So 
3992 030066 001370 BNE 1$ *BR IF DELAY NOT DONE 
3303 Dsbbye QoONE? BRC eater © MOT SET 
3995 630074 132761 000001 ocoooe BITE #8170, 2(R1) iTS IT CNTL 0? 
3335 5 530104 104014 HLT 4 : ERROR NOT CNTL 0 
3336 : 930110 12705 900004 11S: MOV #81T2,RS BUT “EXPECTED” IN RS 
4000 114% 016104 MOV 6(R1);R4 “PUT “FOUND” IN RY 
4001 030120 CMP RS,RY IS ORUN SET? 
4002 030122 001404 BEQ 126 *BR_IF YES 
4003 0301 000001 CMP #1.R4 DATA CK ERROR? 
4004 0301 141 BEQ 13$ *BR IF YES 
400S 1 ig HLT 15 “ERROR, ORUN NOT SET 
4006 1 900207 ooo002 ‘ 128: Bic #207, 2(R1) ‘CLEAR’ 
142 1416 CLR TEMP RESET DELAY 
4008 D146 : DEC RO ; DEC RETRANS COUNT 
4010 152 10$: SCOPE SCOPE THIS TEST 
401 154 900207 oooco2 138: BIC #207, 2(R1) : IGNOR THIS ERROR 
401 162 1416 CLR TEMP RESET DELA 
401 166 1$ : 
4014 
4015S 
4016 
401 
ee 
es 
= 
4031 


16 7 00001 001372 BI 
1002 BNE +6 ‘BR IF YES 





‘#LOST DATA 
%IN FREE RUNNING MODE SEND A MESSAGE LONGER THAN THE RECEIVE 
? *BUFFER VERIFY THAT A LOST DATA ERROR OCCURS. 
ETT rririririri iii ttititiiitiiiitiitiiiitiitititii ett ete cere: 
0301 1 p00Se2 1226 TSTS2: Mov #S2, TSTNO 
0301 ot 03036e BoISie MOV #TStS3, NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR “MASTER CLEAR DMC11 
100000 001366 BIT #81715, STAT! 31S IT A DMC? 
14 BEQ -BR IF YES 
| T W170, STAT3 *KMC WITH BITO SET? 
| 


= ad 

mw SS 
B8 
w 
+£ 
£ 


001226 
001216 


“N 
Oo 
—- OO 
ras 
furu 


z 


001366 
001372 


001366 


: 
br 
5358 
8 


3 
ae 


JMP 
BIT 
BNE 
JSR 
JSR 
JSR 


SRR ER ESS PS Se 


wt a 


SCOPE 


E02 


1 
81712, STATI 


ae 


was 


MEE EE aE EEE EEE 


seh hsb deb-tahadatsted 
tATRANSHIT NON-EXISTENT MEMORY 


#IN FREE RUNNING 
HAVERIFY THAT A NON-EXES 
KKKSKSSLASEAASSS ESSE SSRRESAARERSS SSE RARARARAAASEREL KE RAELER EES 


; TEST S3 

Mov #53, TSTNO 
MOV #TSTS4, NEXT 
MSTCLR 

BIT #B1T15,STATL 
BEQ +16 

BIT #BITO,STAT3 
BNE .+6 

IMP 10$ 

BIT #81712, STAT 
BNE le 

JSR Pc, WROM 

JSR PC; BASELD 
JSR RS, XFRELD 
177320 


CZDNG AMACYI1 27(1008) O7-MAR-77 18:52 PAGE 78 
Pll -77 11:21 FREE RUNNING TESTS 
1 

WSs Gsbess 092797 10800 001366 

4034 030240 irae 

WO Gs0e% 004737 OaS7ee 

4037 Ga0ese ONG? O36ee0 

4038 030256 034742 

4039 030260 000020 

YOY 030262 O004S37 03€2S2 

4041 030255 034674 

yo42 030270 oo0c044 

4043 030272 012703 

4yO44 030276 005037 001416 

4O4S 030302 105761 000002 1S: 

4046 030306 100407 

4O47 030310 005237 001416 

4O48 030314 001372 

4O49 030316 

40SO 030320 001370 

4051 030322 104014 

yOS2 030324 O00415 

4053 030326 132761 000001 on0002 

40S4 030334 001002 

4OSS 030336 104014 

40S6 030340 000407 

4057 030342 012705 000020 118: 

4058 030346 016104 000006 

4059 030352 020504 

4060 030354 001401 

4061 030356 104015 

4062 030360 104400 10S: 

4063 

4yOg4 

4065 

406 

4067 

4068 

4069 

4070 

4071 

4072 

4073 030362 TSTS3: 
| p30444 
| 






;SKIP_T 
LU PRE NT? 


;BR IF NO 

WRITE MICRO-CODE IN CRAM 
,LOAD BASE ADDRESS 

;LOAD RECEIVE BA/CC 


;LOAD XMIT BA/CC 
;BA 





sf 
tS lel 


;ERROR, LOST pare NOT SET 
SCOPE THIS TEST 


Pe Se Se Se Se SF SF SESS SE St Se St St Ce SSS Ce Se ee we we 


T sf HREREE RARE EREREERESEL ES ERE 
Q TRANSHIT BA THAT WILL TIME OUT 
ERROR OCCURS 


c 
MASTER CLEAR DMC11 


WRI E MICRO-CODE IN CRAM 
LOAD DMC BASE ADDRESS 
:LOAD xnit BA/CC 


DZDMG_ = MACY11 27(1008) 
DZOMGB.P11 07-MAR-77 
4088 pee 140044 nip 
BSoveo Gusce? O01518 
4091 a Teoh, oo000e 


7e 005237 O01416 


4096 
4097 14 
4098 000415 
4099 030510 132761 000001 000002 
aint 930516 eit 
Lee 1 
41 D30S2e Abas 
4103 030524 012705 o004c0 
4104 030530 016104 000006 
4105 030534 020504 
4106 030536 001401 
4107 030540 104015 
4108 030542 104400 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 030544 012737 OO00S4Y 001226 
die 0305S2 012737 030736 O01216 
4122 030560 104412 
4123 030562 032737 100000 001366 
dipe panes Meena 000001 001372 
4126 030600 001002 
te 030602 000137 030734 ames 
die 030614 001372 sone 
iN Gees GB Se 
ait 030632 177320 
413s Qa0e3e OO4e37 36252 
4136 O3064e 034674 
4138 eng B12703 900010 
ue Gee te Sues 
4141 Q30662 1 
4142 030664 0052 001416 
4143 030670 001372 


O7-MAR-77 15:Se PAGE 79 
11:21 FREE RUNNING TESTS 


1$: 


11$: 


108: 


TSTS4: 


1$: 





PAGE: 


0225 


140044 ; 
MOV #10, R3 ‘DELAY COUNT 

CLR Wa) FEAR Bethy COUNTER 

TSTB) ss BCR) iis RDY 0 SET? 

BMI +20 

INC TEMP : INC DELAY COUNTER 
Bie Ag ; y BONE 

BNE 1$ RIE DELAY NOT DONE 
HLT 14 RDY 0 NOT SET 

BR 10$ 

BITB #BITO,2(R1) *IS IT CNTL 0? 

BNE 11$ ‘BR IF YES 

HLT 14 : NOT CNTL 0 

BR 10$ : NUE 

MOV #8178,RS “PUT “EXPECTED” IN RS 
MOV 6(R1),R4 *PUT “FOUND” 

CMP RS, RY *1S NON-EX-MEM SET? 

BEQ +4 ;BR IF YES 

HLT is ‘ERROR NON-EX-MEM NOT SET 
SCOPE *SCOPE THIS TEST 


; DEDEDE RRO RSERESESEEREEEENS TEST SY RRR SRRSSRASS AALS AERAELERES 
j #RECEIVE NON-EXISTENT MEMORY T 

#IN FREE RUNNING MODE, LOAD A RECEIVE BA THAT WILL TIME OUT 
#VERIFY THAT A NONCERISTENT NT MEMORY ERROR 
METititiii i titittiitiititiiiititiirtiieiitirererire rope re se oo 2) 


: TEST S4 
fov #54, TSTNO 

#TSTSS, NEXT 

:R1 CONTAINS BASE OMc11 ADDRESS 

MSTCLR *MASTER CLEAR DMC11 
BIT #BITIS,STAT! 31S IT A DMC? 
BEQ + ;BR IF YES 
BIT #81TO, STAT *KMC WITH BITO SET? 
BNE +6 ‘BR IF YES 
IMP ios :SKIP TEST 
BIT #81T12,STAT! | ;LU PRESENT? 
BNE .-le ;BR IF NO 
JSR PC, WROM ‘WRITE MICRO-CODE IN CRAM 
JSR PC’ BASELD “LOAD DMC BASE ADDRESS 
ISR RS, RFRELD sLOAD RECEIVE BA/CC 
177320 :BA 
140044 :CC 
JSR RS, XFRELD *LOAD XMIT BA/CC 
TBUF 3A 
G& ;CC 
MOV #10,R3 *DELAY COUNT 
CLR MP :CLEAR DELAY COUNTER 
TSTB~—s_- @(R1) iis RDY 0 SET? 
BMI +20 SET 
INC TEMP *INC DELAY COUNTER 
BNE 1 -BR IF NOT DONE DELAY 


















DZONG _MACY11 271008) Q?7-MAR-77 15:52 PAGE 80 
OZDMGB.P11  O7-MAR-77 11:21 FREE RUNNING TESTS 
ue BS GRR ee BE PPT ome 
4146 7% rete Nt 14 ‘ERROR, RDY 0 NOT SET 
4147 030700 000415 PR 10$ :GET ouT 
4148 030702 132761 000001 op0002 BITB #BIT0,2(R1) 1S IT CNTL 0? 
4149 030710 001002 3NE 11S BR IF Y 
4150 030712 104014 HLT 14 ‘ERROR, NOT CNTL 0 
4151 030714 000407 BR 10$ : CONT IAUE 
4152 030716 012705 O00400 11$: MOV #81T8,RS ;PUT “EXPECTED” IN RS 
4153 030722 016104 000006 MOV 6(R1),R4 T “FOUND” IN RY 
4154 030726 320504 CMP RS, RY Is NON-EX-MEM SET? 
4155 030730 001401 BEQ +4 BR IF YES 
4156 030732 104015 H_T is s ERROR NON-EX—NEM NOT SET 
4152 030734 104400 108: S50PE ‘SCOPE THIS TEST 
4159 
aict LAPROGESGOR ERROR TEST TEST SS ReRReHRH SHEER EEE EEELLEE LL ES 
He HELE MEO TS, UO, THEE ERECT ESE fn 
alee ; ePeERCESACTETATSUAUSAANEOHGUAESTEASNSESERESGESTETESSa0000008 
4166 ; TEST SS 
4168 030736 012737 O000SS O001226 TSTSS: Mov #55, TSTNO 
4169 030744 612737 031114 OOle16 MOV #TSTS6, NEXT 
IAL oxo7se 1002 rete fdcKENTaLESRPEREL Te"? SORES 
4172 030754 737 100000 001366 BIT #B81T15,STATI -1S IT A DMC? 
4173 030762 001406 BEG + *BR IF YES 
a1 030764 032737 000001 001372 BIT 170, STATS sKMC WITH B1TO SET? 
4176 nee 000137 031112 JMP 10$ :SKIP TEST 
4177 031000 032737 O10000 001366 BIT #81712, STATI *LU PRESENT? 
4178 031006 O01 BNE le *BR IF NO 
4179 031010 004737 o35S62 JSR Pc WROM :WRITE MICRO-CODE IN CRAM 
4180 031014 004737 035762 JSR PC ,BASELD ;LOAD BASE AD 
4181 031020 152711 000043 12$:  BISB #43, (RI *2ND BASE REQUEST 
4182 031024 105711 TSTB R13 :ROI SET? 
4183 031026 100376 BPL - *BR IF NO 
4184 031030 142711 OCO040 BICB = #40, (R1) -CLEAR RQI 
4185 031034 001416 CLR TEMP ‘GET SET TO DELAY 
4i86 031040 105761 o0000e 138: TSTB = BCR) *RDO SET? 
4187 031044 100405 BMI 14$ :BR IF YES 
4188 031046 005237 O01416 INC TEMP :INC DELAY 
4189 0310S2 001372 BNE 13$ :BR IF NOT DONE DELAY 
4190 031054 104014 HLT 14 ERROR 
4191 031056 000770 BR 13$ :TRY AGAIN 
4192 031 132761 000001 onD0002 14$:  BITB #BI72,2(R1) °IS IS CNTL 0? 
4193 031066 001002 BNE 11$ -BR IF YES 
' 4194 031070 14 HLT 14 “ERROR NOT CNTL 0 
| 4195 031072 BR 10$ : CONTI 
4196 031074 012705 001000 11$: MOV #81T9,RS iPUT “EXPECTED” IN RS 
| 4197 031100 016104 000006 MOV RY T “FOUND” IN 
| 4198 031104 O20S04 CMP ite PROC ERROR Sete 
| 4199 031106 001401 ‘BR IF YES 
} 
[ 


ee 


DZDMG MACY11 27(1006) 

DZDMGB.P11 07-MAR-77 
4200 031110 104015 
4201 O3lli2e 104400 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4Ple 031114 012737 
sie 031122 012737 
4215 031130 io0441e 
4216 0631132 032737 
4217 031140 001406 
4218 031142 032737 
4219 pai iee 001 
4220 1152 000137 
4221 Q311S&6 032737 
4222 031164 001372 
4223 031166 004737 
4224 031172 604737 
4225 031176 152711 
4226 O31202 105711 
4227 031204 100376 
4228 031206 142711 
4229 O3l2le 005037 
4230 031216 105761 
4231 O3le22 100405 
4232 031224 005237 
4233 031230 001372 
ueae Oaie39 | ObG770 
uBae OaiSae  Tae7k4 
4237 031244 001002 
4238 islets 104014 
4239 1250 000407 
4240 O312Se Ole 
4241 031256 016104 
4242 QO3lebe O20S04 
eo tie ipa 
deus 031596 14908 
4O4G 

| 4247 

4248 
4E49 

4250 

; 4251 

i 42Se 

i; 253 

| 4yosy 

| 

.. 


O7-MAR-77 15:Se PAGE 
ll:el 


OO00S6 
031272 


1090000 
000001 
031270 
010000 
035562 
035762 
000046 


000040 
001416 
o0000e 


001416 
000001 


001000 
000006 


001226 
001216 


001366 
001372 


001366 


co00de 


108: 


TSTS6: 


1$: ~ 


11S: 


10S: 


——— ee ee 


81 
FREE RUNNING TESTS 


HLT 
SCOPE 


HO0e2 


15 






;ERROR, PROC ERROR NCT SET 
SCOPE THIS TEST 


peer eee ter TEST S6 SHRRRHRRSRERS RAK RALL SEER E RES 
rar ark ERROR T 


RUNNING MODE 
feel THAT A PROCESSOR ERROR OCC 
SESE AE SESE AE AE SE AR AE SEE AE AE HE HE HEHE HEHE HEHE HEHEHE EEE EERE EERE ARES RAE AEE E EEE R EE EEE EEE 


DO A RQI ee ILLEGAL 10 CODE 


;R1 CONTAINS BASE res ADDRESS 
MASTER —_ DMC 1 


;BR I 
;KMC_ WITH BITO SET? 


:BR IF 

: WRITE MICRO-CODE IN CRAM 
OAD DMC BASE ADDRESS 

;RQI_AND’ ILLEGAL CODE 


BR JF Ye COUNTER DELAY 
;BR IF NOT DONE 
ERROR NO RDY 

: TRY AGAIN 

31S IT CNTL O 

ERROR NOT CNTL 0 
;PUT “EXPECTED IN RS 
;PUT “FOUND” IN RY 
iS a ‘= SET? 


oe Fae fms fest 


5 RERERREERER RARE RERRRRHRERES TEST S7 RRRRRRRRERERRR RARER REEL REE 


; TEST Sb 
Mov #56, TSTNO 
MOV #TStS7, NEXT 
MSTCLR 
BIT eBITLS, STAT 
BIT WTO, STAT3 
BNE +6 
IMP ios 
BIT #81712, STATI 
BNE -12 
JSR PC, WROM 
JSR PC’ BASELD 
BISB —- #46, (RI) 
TSTB Ri} 

- BPL -2 
BICB  — #40, (R11) 
CLR EMP 
TSTB—s-_ (R11) 
BMI +14 
INC TEMP 
BNE 1 
HLT 14 
BR 1$ 
BITB #&BITO,2(R1) 
BNE 11$ 
HLT 14 
BR 10$ 
MOV #B1T9,RS 
MOV &(R1),R4 
CMP RS, RY 
BEQ +4 
HLT is 
SCOPE 
 #HAL: EST 
:*IN FREE LEANING MODE 
ie SSAGE AND 


; TEST S7 


SET HALF DUPLEX AND i U LOOP 
VERIFY THAT THERE ARE NO DONES 
a ME E,W 6h LD | 





V_ 


ee 


Bebnce.Pii 


MACY11 57 (1008) 


07-MAR-77 
4256 031272 012737 
Wes? 031300 012737 
4259 031305 104412 
4260 031310 032737 
4261 031316 001406 
W262 031320 032737 
4263 031326 001002 
4264 031330 000137 
W265 031334 032737 
4266 031342 001372 
4267 031344 004737 
4268 031350 004737 
4269 031354 004537 
4270 031360 034742 
4271 031362 OOO044 
4272 031364 004537 
4273 031370 O5N674 
4274 031372 000044 
4275 031374 012703 
4276 031400 005037 
4277 031404 105761 
4278 031410 100406 
4279 031412 005237 
4280 O31416 O0l3z2 
4281 031420 
Wege O3i4ee 001370 
4283 031424 104400 
yoB4 031425 104014 
y285 031430 000 
4286 
4287 
yepe 
4289 
4230 
4291 
nee 
4293 
4294 
4295 
4296 
4297 
4298 
4299 031432 012737 
4300 31440 012737 
430e 031446 194412 
W309 031486 001406 
4305 O31460 O32 
4307 031478 000137 
4308 031474 
4309 O3is0e 001372 
4310 031504 
4311 031510 012737 
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i" 15:Se_ PAGE 


000057 
031432 


100000 


001226 
001216 


001366 
001372 


001366 


82 
FREE RUNNING TESTS 


TSTS7: MOV #57, TSTNO 
MOV sTSt60, NEXT 
MSTCLR 
BIT #B1T15,STAT 
BEQ +1 
BIT #BIT0,STAT3 
BNE +6 
JMP i0$ 
SIT #81712, STATI 
BNE -l2 
ISR Pc, WROM 
ISR PC; *BASELH 
JSR RS; RFRELD 
RBUF 
ate 
JSR RS, XFRELD 
TBUF 
44 
MOV #3,R3 
CLR TEMP 
ug: TSTB = @(R1) 
BMI S$ 
INC TEMP 
BNE u§ 
DEC R3 
BNE 4§ 
10S: SCOPE 
cs: HLT 14 
10$ 


; LOAD TRANSMIT BUFFER 


LOAD DELAY COUNT 


i CLEAR DEL ey, 


te akateet 

sINC DELAY 

;BR IF DELAY NOT DONE 
Y COUNT 


;DEC DELAY 


BR IF DELAY NOT DONE 


Penk OOH DONE WITH HALF-DUPLEX 


5 AEE AE SEE EAE AE ae EE TEST 60 
RUNNING DATA rest ine are ven pens 


THIS, TEST RE 
BUF 


ATEDLY QUE 
a7 fed eet eh ERS 


; TEST 60 

TST60: MOV #60, TSTNO 
MOV #. EOP, NEXT 
MSTCLR 
BIT #B1T15,STATI 
BEQ - 
BIT #BITO, STATS 
BNE +6 
IMP ENDEX1 
BIT #81T12,STATI 
BNE .-l2 


J PC, WROM 
MOV #340, PS 


ina ree =, peu ADDRESS 


Hie if @ oR 


1 
BA’S ARE 


- TRANSMI COUNTS RANGE a: 
00 Ao HEN THRO ETE 


PAGE: 


Yate 


0228 


D. BATA 
FUNCTION IS CHECKED IN THIS TEST 
eae ecaceeeEEESESSGAUSSATSEAEASENSER | SEMEEHCEHNSEHRALEDEEEEORES 


iene IH *erTo SET? 
YE 


SKI TES 
, T? 


me i NICR R-CODE 
LOCK OUT INTERRUPTS 


JO0e 













| pzon pone pitacy it 27(1006) O7-MAR-77 15:S2 PAGE 83 
O7-MAR-77 11:21 FREE RUNNING TESTS 

4312 031516 013700 001366 MOV STAT1,RO GET BR LEVEL 

4313 031522 006200 ASR RO :SHIFT RIGHT 4 TIMES 

4314 031524 006200 ASR RO 

431S 031526 006200 ASR RO 

4316 031530 ASR RO 

4317 031532 O42700 177437 BIC #177437, RO ;PUT BR LEVEL IN RO 

4318 031536 012777 O32476 147630 MOV #IISR, QOMRVEC ;LOAD INPUT VECTOR 

4319 031544 010077 147626 MOV RO VL "LOAD LEVEL 

4320 03155C 012777 033002 147622 MOV sOISR, JDMTVEC ;LOAD OUTPUT VECTOR 

4321 031556 010077 147620 MOV RO, JOATLVL ‘LOAD LEVEL 

4323 s INITIALIZE ALL BUFFER LISTS AND COUNT LISTS 

4325 031562 012737 000104 O346E6 MOV #104, TFLAG sTFLAG CONTAINS COUNT 

4326 031570 012700 033416 MOV axMItpAt2,RO  ;RO POINTS TO BA LIST 

4327 031574 012703 033710 MOV #RBUFF *R3 CONTAINS BUFFER ADDRESS 

1328 631600 010320 ance 1S: nov R3, (ROS+ ;LOAD BA LIST WITH REC BA 

4330 031606 pese na i 033434 CMP ten Bez, RO NDT OF Eat BR EPRCS 

4331 031612 001372 BNE *NO LOAD NEXT ONE 

ee Bibs Bee Be ee ae 

}.4 e 
| 4 BS P54 1373 BNE 25 ‘NO LOAD NEXT BUFEER 

ce Bie cee aise ss: ABE TMS NOIRE Ua gen Ls 

4337 031636 033602 CMP BRONTABSEO. RO END OF REC COUNT LIST? 

4338 031642 001373 BNE BR IF 

4339 031644 012737 OOD006 034664 MOV #6.FLAG ;LOOP COUNT 

4340 031652 012711 O40000 MOV #8iT14, (AL) ;SET MASTER CLEAR 

4341 031656 737 100000 001366 BIT SBITIS;STAT!  ;10P? 
| 4342 031664 1402 BEQ te *BR IF NO 

4343 031666 012711 100000 MOV #BITIS, (RL) :SET RUN ON IOP 
| u344 031672 012700 177777 MOV —s #1. RO :RO_ 1S INPUT DONE COUNTE 

“34S 031676 005037 033412 CLRTAB: CLR RE ;CLE FLAG 
| 4346 031702 012705 033620 MOV #RONTAB, RS GET READY TO CLEAR ALL RECEIVE 

4347 031706 005025 2s: CLR (RS)+ * BUFFERS 
-42ug 031710 022705 O34662 CMP #RBUFFE, ‘END OF BUFFER? 

| W300 BBIZIe Bossa? ooueeH eer én i PRRIAGLE COUNTS? 
| H ; 
| 4351 WTR 100407 BMI 5§ :BR Cabra thd 
Ts BUS Glee pees os: (OY TREUNEARS, | TSABSURTY Chat Cause 
| 4354 eye Bee7oM baaeen CMP aXCNTAB? 16, RY DONE? 
| 4355 031740 001373 BNE 4§ ‘BR IF NO 
| 4356 31742 o0s00e cS: CLR *R2 I$ OUTPUT DONE C2UNTER 

4357 gai74 005004 CLR RY *R4 IS USED AS INDEX IN OISR + 
| 4358 1746 005711 TST (R1) :I1S RUN SET? 

' 4359 031 100376 -2 sHALT FOR RUN 
| 4360 031 1 bl 000100 op0002 1S8 #BIT6,2(R1) SET IEO 
q3ee Bate ata _— BNE BeoFLRG hens Tig? 

4363 031770 Oee7il 004143 BIS #4143, (RL) eT y OOP, IEI,RQI,BASE I 
| usee b3i778 0527 144 1$ Bis #4144, (RL) TIM IEI, ROI, REC BA-CC 
| 
| 4 ne 508037 001416 33: CLR TEMP ° BT Utorret, 90 
| 4367 032006 012737 2 001250 MOV 822, TEMP2 GET SET FOR DELAY 
| 





—-— 
meee ere 


S2 PAGE 94 PAGE: 0220 
BSpNeS. sale me Pate Fe ERE AKING TESTS 
0320 177776 CLR PS ;ALLOW_ INTERRUPTS 
a3 f3e020 bee73 3 000001 034664 SCAN: chp #1, FLAG ; iL BYTE fess 
uaoy s Ne ENDEX3 :BR tf YES 
Bas0sR 137 032440 J : 
4392 032034 O22700 000020 1S: erp see" BE i 
re Giehie : mk S350 Py SCAN2: CMP a4 Re $n DONE FOR ALL MESSAGES? 
be BaSpe4 Wea 000034 as scOn REC Bote FOR ALL MESSAGES? 
“378 108 03362 oO sca RO GET FIRST REC BUFFER 
4380 tietee 15r0o . cs: MOV (RO)+,Re *Re POINTS TO BUFFER 
uae 032070 oH CLR R ay 
4d apenas ce FLAG CHECK FOR ODD XMIT BA’S 
Se HE BE cones Sn Ee 
Wages basioe Aseet6 co0027 BRB £887, (RO) 27’ Be FB By XMIT BAL 
438? Ba5ttB eat ooo042 oP #42, (RO) i: a2 Ts 1h aN ODD XMIT BA ALSO 
i388 Gaei8 obis3 000103 ee 4103, (RO) ed YFREN ODD XMIT BA ALSO 
3a Gielee hie : it RS set ERT DATA AT 1 FOR ODD XMIT BA'S 
Wage D325 eg: MOV R2, TEMP3 :SAVE ADDRESS FOR TYPEOUT 
4392 032126 010237 001252 : nae Re, TENE sSBVE 8 “O 
4393 032132 112004 , iG ek 
Wage Basie arti BE +4 : YES 
4396 032140 104013 HLT 13 sDATA os 
4 Twa B08St INC SINC COUNT 
Bis ne cS 
q 0321 1 CMP (RO) ,R3 sDONE YET? 
| He o3e1s0 Ob ee ooo002 BOD we :GET NEXT REC BUFFER 
402 pete haar 033654 CHP #RONTAB+34, RO sDONE YET? 
4403 1341 0 
4404 pastes Weare 900001 MOV #1 RO ;SET RO tae 
440S 032170 005737 O34664 TST FL ; ABLE 
age nea 034664 sits FL Flag 16 NEGITIVE 
4408 032202 BNE CLRTAB 
: ti ; 6, FLAG HAR COUNT FOR NEXT LOOP 
a 98 Basset 000001 034664 4g IT , fs NGE CHAR 
il 032214 001003 BNE 
a2 o3ee16 005337 034666 DEC TFLAG spec FY 
sits Fe : SUBTRACT FRON XMIT COUNT 
4414 032224 162737 OOOD04O O34666 1$: SUB 840, TFLAG : 
dite Bases Rraye covees so: tLe fs ob FF 
win iat aoe ,R2 i oF COUNT LIST 
Sie Bee RE suis 8 Bn Salta 
| sgl hese tee7te 033620 ore Sytnthasie, Re Boe Re 
| oe TE POINTS TO REC BA LIST 
| M23 032262 612702 o33426 MOV - BRECBA+12,R2 =; Re 
| 
l 


ooo 


DZDMG MACY1] 27(10068) C7-MAR-77 15:52 PAGE 8S PAGE: 0221 
DZDNGE.P11  07-MAR-77 11:21 FREE RUNNING TESTS 
4424 oos222 INC (R2)+ -MAKE THIS REC BA ODL 
442s Giee76 gpseee INC (Ro)+ "MAKE THIS REC BA ODD 
4426 INC (R2)+ *MAKE THIS REC BA ODD 
4427 O3ee74 ocoo04 ADD #4. Re -SKIP TO XMIT BA LIST 
440g 309 INC (R2)+ “MAKE THIS XMIT BA ODD 
4429 032302 005222 INC (R2)+ ‘MAKE THIS XMIT BA ODD 
30 Ge Obe70e oonocs ADD #4. Re ‘SKIP TO NEXT ODD BA 
4431 310 22 INC (R2)+ “MAKE THIS XMIT BA ODD 
4432 032312 012737 177772 O34664 MOV #-5, FLAG :MAKE FLAG NEGITIVE 
4433 032320 000137 031676 JMP CLRTAB "LOOP WITH VARIABLE COUNTS 
4434 032304 152711 000146 ENDEX: BISB #146, (R1) : SHUT MC , 
4435 032330 37 034664 1$: TST FLAG * HAS INTERRUPT OCCURED? 
4436 032334 001775 BEQ 1§ *BR IF NO 
4437 032336 012700 000003 MOV #3,R0 ; ADDRESS OFFSET 
4438 032342 105760 035010 2S: TSTB = BASE(RO) BAEC ERROR COUNT 
4439 032346 001016 BNE ENDEX2 *BR IF ERROR 
4440 032350 005200 INC RO *BUMB INDEX 
wad O3e35e 022700 000011 CHP #11,R0 ;DONE ALL ERROR COUNTERS YET? 
4443 032360 122760 000013 035010 CMPB #13,BASE(RO) 313 BECAUSE OF RESUME 
4444 032366 001006 BNE ENDEX2 :BR IF NOT OK 
4445 032370 005200 INC RO "NEXT BASE TABLE LOCATION 
032372 009013 035010 CMPB #13, BASE (RO) 13 ERRORS BECAUSE OF RESUME 
4447 032400 001001 BNE ENDEX2 *BR IF NOT OK 
4448 O32402 104400 ENDEX1: SCOPE :SCOPE THIS TEST 
4449 O32404 113737 035013 001250 ENDEX2: MOVB  BASE+3,TEMP2 #§ ;STORE ALL ODD ADRESSES 
4450 032412 113737 035015 001252 MOVB BASE+S; TEMPS  ;FOR T T 
4451 032420 113737 035017 001254 MOVB = BASE+7. TEMP4 
4452 032426 113737 035021 O01256 MOVE  BASE+11, TEMPS 
4453 032434 104017 HLT 17 ;NON ZERO ERROR COUNT 
4454 032436 61 BR ENDEX1 GET OUT 
445S 032440 022700 900017 ENDEX3: CMP #17, RO *ALL DONE INPUT? 
4456 032444 001690 EQ SCAN *BR IF YES 
4457 032446 005337 001416 SCANI: DEC TEMP :DECREMENT DELAY COUNTER 
MNES O35Ne5 BOOIS? 32020 een BF TE ABT DONE DELAY 
neta 005337 001250 1$: DEC EMP2 BR DELAY COUNT 
4461 O32464 001402 BEQ 2 *BR IF DONE DELAY 
032466 000137 032020 IMP SCAN :BR_IF NOT 
4463 032472 104014 2s: HLT 14 43 HUNG 
4464 032474 000742 BR ENDEX1 GET OUT 
dies ; INPUT INTERRUPT SERVICE ROUTINE 
4468 032476 022700 000017 IISR: CMP #17,RO ;PROC. ERROR DONE? 
4469 032502 001421 BEQ 12 :BR IF YES 
4470 032504 032412 TST RESUME :T© THIS A RESUME INTERRUPT 
4471 032510 001432 BEQ 8S °RR IF NO 
4472 032512 032711 o00002 BIT #B1T1, (R1) *CNTL OR BASE? 
“a pace48 Byo7bi 035010 co0004 | Boy BASE 4(R1) Bear Ser bore SS 
4475 paseSe pt 61 010000 0o00006 MOV #81T12,6(R1) ‘WITH Bretine BIT SET 
ware base | ppeded 06 13$ Bre bean) ONE OT eFULL DUPLEX 
4478 b3se38 Bpepee ee CLR RESUME *CLEAR RESUME FLAG 
4479 032546 142711 OO0040 128: BICB #40, (R1) CLEAR ROI 


| 
| 
| 
| 
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105711 


Bee 


8 
2 


Sieg eee 


s 


eS 


xe 
=H 
8 = 
io — 
-_ | 


bees 


ee 
— 
_ 


sg 


033412 


000001 


ooc004 


coooo4 
000006 


oo0004 
000006 


034664 


14S: 
8S: 


7$: 


1$: 


es: 


6S: 


OISR: 


a 


Piet ters 
=“—0 me 


ee 


MOe2 


PAGE: 
(RL) ;1S ROT GONE? 
2 NO 
RESUME t BASE OR CNTL 1? 
14$ BR IF IT Mas CNTL I 
#41, (R1) ASK FOR CNTL I 
(R1) CLEAR BSEL 0 
i] 
RO “FIRST TIME HERE? 
7S "LOAD BASE IF MINUS 
#BASE,4(R1) -SET UP BASE ADDRESS 
6(R1) i CLEAR COUNT 
’ 
1$ sCNTL I FULL DUPLEX IF 0 
6(R1) “SELECT FULL DUPLEX 
* CONTINUE 
#81T3,RO XM1 
*BR IF YES 
“CLEAR CARRY 
"MAKE RO EVEN 
CBA(RO),4(R1) ;LOAD REC BUFFER 
RCNTAB(ROS ,6(R1);LOAD COUNT 
*CLEAR CARRY 
RO GET RO 
3$ : CONTI 
CLEAR CARRY 
RO “MAKE IT EVE 
XMITBA(RO),4(R1);LOAD XMIT BUFFER 
RCNTAB(RO);6(R1);LOAD COUNT 
;CLEAR_ CARRY 
*PUT IT BACK 
#40, (R1) *CLEAR ROI 
(R1S “WAIT FOR 
- “RDI TO GO AWAY 
> INC COUNT 
6$ :IF O ASK FOR CNTL I 
#41, (RL) “ASK FOR CNTL I 
; RETURN 
#17,RO ;DONE YET? 
4 *BR IF YES 
#81T3, RO ent 
S$ F YES 
#44, (RL) Roe Fo TE OR REC BA/CC 
#40, (R1) sASK FOR XMIT BA/CC 
#1, FLAG : BYTE MESS? 
;BR IF YES 
#46, (R1) sFORCE PROC. ERROR 
;RETURN 
(RL) ;CLR SELO 
* RETURN 


INTERRUPT SERVICE ROUTINE 
#BITO,2(R1) 31S THIS AN ERROR? 
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FREE RUNNING TESTS 


118: 


18: 


4§: 
5S: 


6$: 


10S: 


BEQ 
TST 


I 
CMP 


PAGE: 
:BR IF NO 

ac if Ths SHUT DOWN INTERRUPT? 
LAG YES FLAG NON-ZERO 
#8179, 6(R1) : SHUT DOuN BIT SET? 
#17,RO i REGUREC INTERRUPT? 

118’ BR IF NO 

06179, 6(R1) sPROC ERROR BIT SET? 

rican, jeebres EGR See 

ana, ae 

a61T1S, (RL) : T RUN ON KC 

“4 g 

$-1, RESUME ;SET RESUME FLAG 

(R13 iRUN 5 

#8176, 2(R1) “SET IEO 

#4143, (RL) jASK FOR PORT(BASE REQ) 
4(R1), TEMP : FOR TYPEQUT 
ein) TERPS ; ave FOR ER : of TYPEOUT 
(SP) 4, (SP)4 jADIUST TACK 
#B1Te2,2(R1) RECEIVE? | 
STBUFF+1,4(R1) jXNTT BA CORRECT? 
aTBUFF (RL) iXNIT BA CORRECT? 

14 : i} BA E 
RENTABCRS) pcan HTB ok COUNT OK? 
BS " , BR IF ves , 
#16,RS LIST YET? 

14 >XMIT COUNT ERROR 
4CRL)  XONTAB(R2) j $7 ey DONE BA 
6(R1),XDNTAB(R2);STORE XMIT DONE CC 

he 3; INC INDEX 

#207, 2(R1) iCLEAR 

(R1) *CL L 
stad) iGlean SELe 

82, RS :SET UP RS AS I 
RECBACRS) ,4¢RL) Conan WITH ree OF CORRECT BA’S 
#2 INCREMENT RS 
150° RS “END OF LIST? 
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DZDMGB.P11  O7-MAR-77 11:21 FREE RUNNING TESTS 

4592 033324 001367 BNE est -BR IF NO 

4593 033326 104014 HLT "REC BA ERROR 
4594 033330 o0so0S 3$: CLR “PS IS INDEX 

459S 033332 026561 033602 000006 75: CMP XCNTAB(RS) ,6(R1);CHECK FOR CORRECT REC COUNT 
4596 033340 001406 BEQ °BR IF YES 

4597 O33342 O06270S o00002 ADD INCREMENT RS 
4598 03334 Oe2705 O00016 CMP ai6,R RS “END OF LIST? 
4599 033352 001367 BNE “BR IF NOT 

4600 033354 104014 HLT a “REC COUNT ERROR 
4601 033356 016164 000004 033620 8S: MOV 4(R1) ,RONTAB(RY)’ 5 STORE REC BA 
4602 033364 062704 O00002 ADD 4’ 

4603 033370 O16164 O00006 033620 MOV 6(R1), RONTAB(RY) ; i STORE REC DONE CC 
4604 033376 062704 000002 ADD zt INDEX 

4605 O2 142761 000207 o00002 BICB #207, 2(R1) CLEAR ROO 

4606 033410 02 RTI : RETURN 

4607 

4608 

4609 ; BUFFERS 

4610 

4611 033412 o00000 RESUME: O 

4612 033414 RECBA: 

4613 033414 000017 XMITBA: .BLKW 17 :REC & XMIT BA LIST 

4615 033452 F: TRANSMIT DATA 
4616 033452 000 001 002 BYTE 0,1,2,3,4,5,6,7 

4617 033455 003 004 005 

4618 033460 006 007 

4619 033462 010 O11 ole -BYTE 10,11,12,13,14,15,16,17 

4620 033465 013 014 01s 

4621 033470 O16 017 

4622 033472 020 021 022 -BYTE 20,21,22,23,24,25,26,27 

4623 033475 023 024 025 

4624 033500 026 027 

4625 033502 030 031 032 -BYTE 30,31,32,33, 34,35, 36,37 

4626 033505 033 034 035 

4627 033510 036 037 

4628 032512 040 041 o42 BYTE 40,41,42,43,44,45, 46,47 

4629 033515 043 O44 045 

4630 033520 O46 047 

4631 033522 oso 051 os2 .BYTE 50,51,52,53,54,55,56,57 

4632 033525 053 054 oss 

4633 033530 056 057 

4634 033632 060 061 062 -BYTE 60,61,62,63,64,65,66,67 

4635 063 064 065 

4636 033540 O66 067 

4637 033542 070 071 072 -BYTE 70,71,72,73, 74,75, 76,77 

4638 033545 073 074 075 

4639 033550 076 077 

4640 032552 100 101 102 -BYTE 100,101,102, 103,104, 105, 106, 107 

4641 033555 103 104 105 

Hove 033560 106 107 

4644 033562 000010 RCNTAB: .BLKW 10 ;RECEIVE COUNT TABLE 
Hous 033602 000007 XCNTAB: .BLKW 7? ‘TRANSMIT COUNT TABLE 
4647 033620 000016 RONTAB: .BLKW 16 RECEIVE DONE TABLE (BA/CC) 
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4648 033654 o00016 XDNTAB: .BLKW 16 ;XMIT DONE TABLE (BA/CC) 
4650 033710 RBUFF : ;RECEIVER BUFFERS 
4651 033710 000106 RBUFF1: .BLKB 106 
4652 034016 000106 RBUFFe: .BLKB 106 
034124 000106 RBUFF3: .BLKB 1 
4654 O34e32 000106 RBUFFY: .BLKB 106 
4655 034340 000106 RBUFFS: .BLKB 106 
Wee? Oauess pootDE REUFES: “BLKB 108 
4658 034662 000000 RBUFFE: 0 sEND OF RECEIVER BUFFERS 
4655 09500 
4660 09600 
4661 09700 
4662 09800 ;BUFFER AREA 
4663 09900 yena----- == 
4BBY 10000 
4665 034664 000000 10100 FLAG: O 
4666 034666 000000 10200 TFLAG: O 
4667 034670 000000 10300 RFLAG: O 
4668 034672 OO0044 10400  TCOUNT: 44 
4669 034674 041101 O42102 043105 10500 TBUF: .ASCII/”ABCDEFGHIJKLMNOPQRSTUVWXYZ01234S6789/ 
4670 034702 O44107 O4S111 046113 
4671 034710 047115 OS0117 OSilel 
4672 034716 052123 053125 054127 
4673 034724 055131 O30460 031462 
4674 034732 032464 033466 034470 
4675 10600 .EVEN 
4676 034740 4 10700 RCOUNT: 44 
4677 034742 035010 10800 RBUF: =. +46 
4678 10900 .EVEN 
4679 035010 035410 11000 BASE: .=.+256. 
00300 
4681 00400 
00S00 ;SUBROUTINES 
4683 00600 «= ;----------- 
HE oY 00700 
4685 035410 00800  CLRALL: 2 
4686 90300 ; THIS SUBROUTINE CLEARS THE C&8Z BITS AND THE BR 
4687 1000 
4628 0354110 104414 nana ROMCLK sNEXT WORD IS INSTRUCTION, 
000400 000400 * BRe 
tT] 
oe 4h AOL iets ROMCLK sNEXT. WORD IS INSTRUCTION, 
0632 063220 e & 
g 
46 heat 104414 ROMCLK *NEXT WORD IS INSTRUCTION, 
4693 035422 Ge0400 01600 060400 ;BR+SP(0)+BR 
4694 035424 000207 01700 RIS PC 
4695 1 
4696 
4697 035426 SETBRO: 
m4 55100 ;THIS SUBROUTINE SETS BRO BIT 
4700 035426 Lou RONCL K sNEXT WORD IS INSTRUCTION, 
ie as ; cd 
d7oe D3ea3e 06500 Rs PC 
4703 02600 


PAGE: 


ROMCLK PC=5304 
ROMCLK PC=S304 
ROMCLK PC=5304 


ROMCLK PC=S304 
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DOS 


PAGE: 
* ;THIS SUBROUTINE SETS BR1 BIT 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
oo004de :BReOO2 
RTS PC 
" THIS SUBROUTINE SETS BRY BIT 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
oo00420 : BR+O20 
RTS PC 
" sTHIS SUBROUTINE SETS BR7 BIT 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
000600 :BRe200 
RTS PC 
; THIS SUBROUTINE SETS THE C BIT 
RONCLK ;NEXT_WORD IS INSTRUCTION, ROMCLK PC=5304 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
063220 :SP(O)+ 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
060400 : BReSP(0)+BR 
RTS PC 
; THIS SUBROUTINE SETS THE Z BIT 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
000777 :BRe377 
RTS PC 
sTHIS SUBROUTINE LOADS RS WITH EXPECTED ROM CONTENTS 
: OADS R4 WITH ACTUAL ROM CONTENTS 
MOV a(SP),RO ; INDEX FOR COMPARE 
ADD #2, (SP) ; ADJUST STACK 
MOV sB{T10, (R1) 
MOV ROMMAPTRO) , RS ;PUT “EXPECTED” IN RS 
MOV R1),R4 T “FOUND” IN 


( 
RTS Cc ; ‘RETURN 


EQ3 
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4760 035530 08300 RAMDAT: 
4761 08400 ; THIS SUBROUTINE LOADS R4¥ WITH THE LOWEST 
4762 98500 '8 BITS OF THE CRAM PC. 
4763 086 
4764 035530 017605 o00000 08700 MOV a(SP),RS ;GO0D DATA 
4765 035534 062716 O0000e2 08800 ADD te (SP) :ADJUST STAC 
4766 035540 005011 08900 <0 ee :C BIT ta 
4767 035542 052711 OO0400 03000 BIS a8178, (RID “CLOCK INSTRUCTION IN CRAM THAT WAS 
4768 09100 : JUMPED TO, IT LOADS BR WITH ROM PC 
4769 035546 005011 09200 CLR (RL) CLR BIT 
4770 O355S0 104414 ROMCLK * NEXT WORD Is INSTRUCTION, RCMCLK PC=5304 
4771 035552 061225 09400 061225 mov BR T re. 
4772 035554 116104 oD000S 09500 MOVE  S(R1),R4 PF OUND” oF 
4773 035560 000207 09600 RTS PC i RETURN 
4774 09700 
4775 oO3SS62 09800  WROM: 
4776 09900 ;THIS SUBROUTINE WRITES THE ROMMAP INTO THE CRAM 
4778 035562 032737 100000 001366 10100 BIT #BITIS,STAT1 | ;BE SURE DMC _HAS CRAM 
4779 035570 001420 10200 BEQ 2$ *SKIP_ IF NO CRAM 
4780 035572 10300 CLR *RO=CRAM ADDRESS 
4781 035574 012702 011766 10400 MOV #ROMMAP , Re Re POINTS TO ROMMAP 
4782 612711 o02000 10S00 (1S: MOV aBITIG RID ;SET ROMO 
4783 035604 010061 000004 10600 MOV RO,4 ‘LOAD CRAM ADDRESS 
4784 035610 Ol2261 CO0006 10700 MOV Re} BCR) *LOAD WORD TO BE WRITTEN 
4785 035614 052711 Oeco0o 10800 BIS #BIT13, (R1) :WRITE IT! 
4786 035620 10900 INC RO NEXT ADDRESS 
4787 035622 O22 002000 11000 CMF #2000, RO :DONE YET? 
4788 035626 001364 11100 BNE 1$ ?BR IF NO 
4789 035630 ll 11200 CLR (R1) *CLEAR SELO 
4790 035632 000207 11300 28: RTS PC * RETURN 
479] 11400 
4792 11500 
4793 035634 11600 MEMSET: 
| Hee 11700 ; THIS SUBROUTINE LOADS CRAM WITH SPECIAL INSTRUCTIONS 
4795 11800 "FOR THE CRAM JUMP TEST. ALL CRAM LOCATIONS ARE L 
| 4796 11900 ‘WITH INSTRUCTIONS THAT MOVE A 37 TO THE BR, EX CEPT THE 
| 4797 12000 : LOWING CRAM APORESSES: 0,1.4.7,525,1777. THESE LOCATIONS 
| 4798 12100 CONTAIN INTRUCTIONS WHICH LOAD tHE BR'WITH THE LOWEST 
i733 1ee00 :§ BITS OF THAT CRAM ADDRESS. 
4801 035634 o0S000 12400 CLR RO RO = CRAM ADDRESS 
4802 035636 012711 oo02000 12500 1S: MOV #BIT10, (RL) “SET ROMO 
4803 035642 010061 000004 12600 MOV RO.4Y(RI) "LOAD CRAM ADDRES 
4804 035646 012761 000437 o00006 12700 MOV #437, 6(R1) *LORD_INSTRUCTI 
4B80S 035654 052711 O20000 12800 BIS #81713, (R1) *WRITE INSTRUCTION IN CRAM 
4806 G35660 005200 12900 INC RO *NEXT Ss 
4807 022700 002000 13000 CMP #2000, RO : DONE YET? 
4808 001.363 13100 BNE 1$ :BR IF NO 
4809 nessa 13200 CLR RO i INDEX REGISTER 
4810 035672 012711 13300 2: MOV #BIT10, (R1) 
4811 035676 016061 035732 oO00004 13400 MOV CRAMACRO),4Y(R1) ; tee ft S IN SELY 
/ 4Bl2 016061 035746 000006 13500 MOV INSTU(RO)/6(R1) ingrRuCTIIN TO BE WRITTEN 
i 813 035712 052711 O20000 13600 BIS #81713, (RL) 
| 4814 035716 005720 13700 TST (RO)+ 
: 4815 035720 022700 000014 13800 CMP #14,RO er YET? 
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4816 035724 001362 
4817 035726 005011 
m3 035730 000eC7 
4820 035732 000000 
4821 035740 retort 
3 tes Bae 
SS fee Bee 
4826 035756 000777 
4827 035760 000525 
4828 
4829 
4830 035762 
4631 
4832 
4833 
4834 O3S762 012711 
4835 035766 032737 
4836 C35774 001402 
4837 035776 012711 
4838 036002 105227 
4839 036006 001375 
4840 36018 711 
4841 O360le 100376 
4842 036014 052711 
4843 036020 152711 
4844 036024 105711 
Se fees iio 
Se Gee hee 
4848 03604 142711 
4849 036046 105711 
48SO 036050 100776 
48S1 036052 152711 
48Se 036056 105711 
4853 036060 100376 
4854 03606e 9005061 
48SS 036066 142711 
4856 03607e 105711 
4857 036074 100776 
4858 036076 000207 
4859 
4860 036100 
4861 
4862 
Se ein ieee 
Se RIE Buse 
| dees heise 105227 
3 Be oe 
| 4871 036130 100376 
j 
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000001 
001777 


040000 
100000 


190000 
000000 
004000 
000043 


035010 
000006 
009040 


000041 


000006 
000040 


000004 
oo05eS 


001366 


000004 


001366 


SUBROUTINES 


1S: 


sanssaane 


18300 


18600 = 18: 


CRAMA: 
INSTU: 


FOS 


BASELD: 


BASELH: 


PAGE: 
BNE 2g :BR IF NO 
CLR (RL) ‘CLEAR ALL BITS 
RTS PC : RETURN 
.WORD 0,1,4,7,1777,525 
000400 :BR+O 
000401 :BRe1 
004 ;BRe4 
900407 :BRe? 
000777 :BRe377 
00' ;BRe12S 
;THIS SUBROUTINE \OADS THE DMC WITH A BASE ADDRESS 
?AND PUTS DMC INTO FULL-DUPLEX MODE 
MOV #BIT1Y, (RL) ;MASTER CLEAR , 
BIT #BITIS,STAT! § ;CRAM? 
BEQ +6 ;BR IF NO 
MOV #BITIS, (RL) ‘IF CRAM SET RUN 
INCB ss 80 : DELAY 
BNE -4 *BR IF NOT DONE DELAY 
TST (R1) :1S SET? 
BPL 1g BR IF NO 
BIS #B1T11, (RL) *SET LU LOOP 
BISB—s--#43, (RIL) *BASE REQUEST 
TSTB = (RL sRDY I SET? 
BPL 2 IF NO 
MOV #BASE,4(R1) *LOAD BASE ADDRESS 
CLR 6(R1) -CLEAR CC 
BICB  —_ #40, (R1) ‘CLEAR ROI 
TSTB ss (R21 *RDY I CLEAR? 
BMI *BR IF NO 
BISB #41, (R1) sASK FOR CNTL I 
TSTB —s (RL} ;WAIT FOR RDI 
BPL 64S *BR IF NOT SETY 
CLR 6(R1) *SET FULL DUPLEX 
BICB =: #40, (R11) :CLEAR ROI 
TSTB ss (RL :RDI UP? 
BMI 65$ ‘BR IF YES 
RTS PC : RETURN 


; THIS SUBROUTINE LOADS THE DMC WITH A BASE ADDRESS 
AND PUTS DMC INTO HALF-DUPLEX MODE 


MOV #BIT14, (R1) 
BIT #BIT1S) STAT 
BEQ 

MOV WBITIS, (R1) 
eg -* 

FST (R1) 

BPL 1$ 


;MASTER CLEAR 
; CRAM? 


;BR IF NO 
TF CRAM SET RUN 


LAY 
ie IF NOT DONE DELAY 
S RUN SET? 

;BR IF NO 


oe 
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4872 036132 052711 OO4000 18800 BIS #81T11, (RL) ;SET LU LOOP 
4873 036136 152711 000043 18900 BISB  —_-&43,, (RIL) : BASE REQUEST 
4874 036142 105711 19000 2: TSTB ss (RL ;RDY I SET? 
4875 036144 100376 19100 BPL 2g BR IF NO 
4876 036146 012761 035010 o00004 19200 MOV #BASE,4(R1) ; LOAD BASE ADDRESS 
4877 036154 005061 O00006 19300 CLR &(R1) cc 
4878 036160 142711 OO00040 19400 BICB —_- #40, (RI) CLEAR ROI 
4879 036164 105711 19500 3S: TSTB ss (RL ; ROY I CLEAR? 
4880 036166 100776 19600 BMI 3$ NO 
4881 036170 152711 000041 BISB  —_- #41, (R1) ASK FOR CNTL I 
ye82 036174 105711 64S: TSTB ss (R21 *WAIT FOR RDI 
4883 036176 100376 BPL 64S *BR IF NOT SETY 
4884 036200 012761 oO02000 o00006 MOV #B81T10,6(R1) :SET HALE DUPLEX . 
488s 142711 000040 BICB —#40,, (RL) CL LEAR ROI 
4886 O362l2 105711 65S: TSTB ss (RL :R ? 
4887 036214 100776 BMI 65$ ‘BR IF YES 
yess 036216 000207 19800 RTS PC : RETURN 
4889 19900 
4890 036220 20000 #RFRELD: 
4g31 20100 ; THIS SUBROUTINE LOADS THE DMC WITH A RECEIVE BA/CC 
4893 036220 152711 oo0044 20300 BISB wy (RL) ;REC BA/CC REQUEST 
4894 036224 105711 20400 1S: TSTB R13 “ROY I SET? 
4895 036226 1003 20500 BPL is! BR I 
4896 036230 012561 O00004 20600 MOV (RS)+,4(R1) “LOAD REC BA 
4897 036224 012561 OO0006 20700 MOV (R5)+ (R11) sLOAD REC CC 
4898 036240 142711 OO0040 20800 BICB  — #40, (RIL) ‘CLEAR RQI 
4899 036244 1 20900 2S TSTB ss (RL *IS RDY I CLEAR 
4900 03624 21000 BMI 2s *BR IF NO 
4901 036250 0002 21100 RTS RS : RETURN 
4902 21200 
4803 036252 21300  XFRELD: 
4308 21400 ; THIS SUBROUTINE LOADS THE DMC WITH A TRANSMIT BA/CC 
| 4906 036252 152711 00040 21600 BISB #0 (RL) :XMIT BA/CC REQUEST 
4907 036256 105711 21700 1S TSTB Ri} :RDY I SET? 
| 4908 036260 100376 21800 BPL is 7BR IF NO 
036262 012561 o00004 21900 MOV (RS)+,4(R1) *LOAD XMIT BA 
| 4910 036266 012561 000006 22000 MOV (RS)+.6(R1) ‘LOAD XMIT CC 
| MSL G3be7e 142711 000040 32100 ICB ss #40, (RL) * CLEAR ROI 
491 105711 Fy 2$ STB ss (RAS ?1S ROY I CLEAR 
| 4913 036300 100776 22300 BMI 2S “BR IF NO 
| 4314 036302 000205 e400 RTS RS : 
036304 041777 O40S22 020115 OO400 EM: .ASCIZ <377>/CRAM DATA ERROR/ 
paese; = ae> pert bis]? O0e00 pie: Rexts Ye ok ERROR — 
| Gaeae a ea Oy iso 00800 Er ee rag HOP EEROR'IN IBUS# REGIO/ 
| $ e 
0364S0 044777 050117 Piedup 00900 Mb: -ASCI ahd RAIN ENORY TEST/ 
036476 OWH777 O50117 046440 01000 EN? ASCIZ < (377) >/ TOP _ MAR BR TES £. res1/ 
| baee4i ca ie Bie EMIS: “ASkIS  Ca7p>- RECEIVE ie 
77 OSi106 O4250S 01300 EMle: .ASCIZ <377>/FREE SENRING 
036611 377 04 052116 O1400 €EM13 -ASCIZ <377>/CONTROL OUT ERR RGRe 
044777 OS2116 051105 01500 M14:  .ASCIZ <377>/INTERNAL DDCNP ERROR COUNTS NON ZERO/ 
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01600 
036702 042777 050130 O4150S 01700 OHI: 
036734 042777 050130 041505 O1800 DHP: 
036755 377 051440 046105 01900 DH3 
03677 041377 051501 Oess0s O2e000 
02100 EVEN 
2200 
037024 000003 02300 O71 
702% 006 OO% 02400 
037030 001264 02500 
037032 006 O04 02600 
037034 001270 02700 
703% O04 O02 02800 
037040 001260 02900 
037042 000003 03000 OT2: 
037044 006 04 03100 
7046 001272 03200 
037050 006 004 03300 
7052 001270 03400 
037054 004 02 03500 
037056 001264 03600 
037060 000003 03700 DT3: 
037062 +006 O04 03800 
027064 001272 3900 
037066 005  oo4 04000 
037070 901270 04100 
A 
) 
7076 Oe 4400  DTY: 
037109 003 007 4500 
tba ove ite 
7106 001270 04800 
037110 04900 «OTS: 
11 006 O04 05000 
037114 001272 05100 
037116 005 002 05200 . 
037120 001270 05300 
037122 900003 05400 Tb: 
0371 003  o10 05500 
| 037126 001272 4 
| 0371 003  oo4 700 
| 037132 001270 05800 
037134 O04 002 05900 
037136 O34664 06000 
| 037140 00003 06100 T7: 
037142 003 #10 06200 
| 037144 001272 06300 
| Baris8 cose | Becoo 
| 037152  ~=004 oe 
037154 001264 06700 
| 037156 me 6800  OTLO: 
| ates ooisye 
037164 O03 oo4 07100 


ee ee ree ee 


HOS 





<377>/EXPECTED FOUND ADDRESS/ 
C00) exer TED FOUND’ 

(377>7 SELY SEL6/ 
<377>/BASE+3 THRU BASE+1l2 / 


6,4 
6,4 
4,2 


6,4 
6,4 
4,2 
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037166 001270 07200 SAVRY 
037170 006 902 07300 "BYTE 6,2 
7172 00122 07400 TEMPS 
37174 o00002 07500 DTll: ~2 
037178 006 O04 07600 “BYTE 6.4 
001252 . 07700 TEMPS 
037202 «006 «=e 07800 ‘BYTE 6.2 
037204 001254 07900 TEMP4 
037206 000010 08000 DTl2: 10 
037210 003 002 08100 ‘BYTE 3,2 
037212 001250 08200 TEMPS 
0372014 O03 ~—s oe 98300 BYTE 3,2 
037216 O3S014 08400 BASE+4 
037220 003 ~=—s 02 08500 "BYTE 3,2 
001252 08600 TEMPS 
037224 5 —Sségoe 08700 BYTE 3,2 
037226 O3S016 08800 BASE+6 
037230 p02 08900 YTE 3,2 
037232 001254 0 TEMPY 
037234 o02 09100 BYTE 3,2 
037236 035020 BASE?! 
037240 p02 09300 B 3,2 
037242 001256 TEMPS 
7 603 «one 0 3,2 
037246 09600 BASE+12 
09700 
037250 0980. ERRTAB: 
B375e5 BoRgoG raeco 0 
037254 OQ0000 10100 0 
037256 036304 10200 EMI 
037260 036702 10300 OHl ;HLT 1 
| 037262 037024 10400 OTL 
037264 036325 10500 M2 
| 037266 036702 10800 OH ;HLT 2 
| 037270 037024 10700 OT! 
| 037572 10800 EMI 
037274 036702 10900 OHl :MLT 23 
| 037276 037045 11000 DT2 
037300 03636! 11100 EMS 
| 037302 036 11200 OHl ;HLT 4 
| 037304 11300 DT3 
ee Ree i oe 
Basie Bator i1e00 Ord 
| 037319 036402 11700 MY 
037316 0367 11800 OH2 HLT 6 
037320 037110 11900 TS 
| 037322 036416 12000 EMS 
| 037324 036734 13100 OH? ;MLT 7 
| 037326 13200 OT4 
037330 036450 12300 EMb 
37332 036 12400 OHI ;HLT 10 
| 037334 037125 13500 Tb 
7336 036476 13600 EM? 
: 037340 0367 12700 OHl ;HLT 11 
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| 037344 


03 
037400 


037404 
937406 


037410 


271 1006 
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coos! 


) 
7 
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SUBROUTINES 
12800 017 
12900 EM10 
13000  OHe 
13100 O74 
13200 M11 
13300 OHI 
13400 = OT10 
13500 EMle 
13600 0 
13700 0 
13800 EMl2 
14600 BTS 
14100 EM13 
14200  H3 
14300 T11 
14400 EM14 
14500  DHY 
14600 DT12 
14700 
14800 

4900  CORMAX 
15400 END 


16 


17 


— ee ee eee - 


a ee ne ee ee 






KO3 
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ADRCNT= 004301 gsex 894s «9038 
AUDONE 002734 See t«éE 398 
BUSTRT ODEN St 
hecatt a 
BASELD 035762 yo3s «4408S «4131 
BASELH 036100 W268 -4BEO8 
BINHRD 004622 Sus 947% «48 
BITO = OO000! g¢ 1133 1134 
avg 47441322 
8IT1 = 000002 48 633 #112? 113 
BIT10 = O02000 weet 7S 1M 
BIT11 = OO4OOD Bue yeu2 -4g72 
BIT12 = 010000 838 1427 1501 
BITI3 = 020000 B28 1430 1478 1505 
BIT1¥ = 40000 Bie = 71 LMM 
BITIS = 1 Bos 4B 569 
199 20% 2097 
5763 20 
2 ee 
BIT2 = OOO004 ag, 768 4208 iss 
BITS = @29 1807 1814 4G 
BITY = gis 1117 1140 41142 
BITS = OOOD40 908 1618 2047 
ug gies ig 
BITB = 878 1485 «1496815 
BITS = eos 1483  14@S 1493 
BRUVL BLTaSB ti5e* 223 so> sous 
S e666 Ue 
|CHRONT 04620 S42x Sues 
CKSIR 614. 753 ~«=«790—Ss«1.008 
CKSURI 12008 1212 
| CKSURE 15038 
| Sound popued iShes 1214 «420 
|SKSURS 007554 1191 1195 12308 
| RURAL tae 
| Sh7q | SHS SLR BaP 
1 3497 3510 
3745 —-3758 qeose 
CLRTAB 0346 Gouee 4408 «24416 S33 
ora DOIPB a 
CNVRT = 104411 2338 718 
CONERR 007125 B02 «11658 
| CONN ie 11658 
CONTAB 002710 b1i ‘ 
CONVRT= 104410 2318 610 1055 
| CORMAX 037410 49158 


—- —— - -- . . i. — oe 


| 
| 


mm 
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a ane 
CREAM 001320 1958 = 48S*® = Leb4# = 1265 1267% 1271 
CSR 006412 116S# 1370 
DATABP 005124 10e8* 1031 1053 10S6% 
DATACL= 104415 e418 
DATAHD O0Sile 1027 1049 10S2% 
DELAY = 104413 2378 
DEVADR 004276 8S6* 383i 901% 
DEVTAB 002722 580 629% 
DH1 036702 49158 
DHe 036734 49158 
DH3 735 49158 
DH4 036776 49158 
ee ee gt ge soe 
DMACTY 001306 1898 656% 657 1255 1269 1351# 1534  1540% iS41# 
DMCM 007210 615 11658 
DMCROO ethaty 2808 
OMCRO1 1510 e8ss 
DMCRO2 001520 2908 
DMCRO3 001530 23s 
DMCROY 001540 3008 
DMCROS 001550 3058 
DMCRO& 001560 3108 
DMCRO7 001570 3158 
DMCRiO 001600 3208 
DMCR11 001610 3258 
DNCR12 tty 3308 
DNCR13 1630 3358 
DMCR14 001640 3408 
DMCRiS 1650 3458 
re Bie Be 
DMC 1404 2638 S6S* 591 628 745 782 1095 1141 1273* 1282 
pee ieit spe ie 12538 issce 1133 1134 1140% 1142 1le8ee 1eB3 
4 # 
DMNUM 001310 1908 481 731 1349# 1364% 1526% 1527 1535 1537 
Ree D0141e2 e668 1111% 1117 1154 1159 1e86* 1c87% 1288 
D01414 2678 * 1288  1289% 
DMRLVL 1376 e608 1291# 1292 1293 4319% 
peeves 133 sare 8 1e74# 81275 81291 4318% 
UL 
DHE IOI Bpiet3 e868 
OMS102 001See e3ls 
DMS103 001$3e 2368 
DMS 104 1542 3018 
tbe 1552 306% 
is 1 3lls 
1 1 3168 
Bie BR 
HEL 12 001622 3318 
DMS113 001632 336% 


1545 


1570 


PAGE: 


o244 


ane 


NOU £Wwle-O 
S888888S88SSS8s88SssSsS8ssssssssssssssssss 


eee 


ag8 
m 
ane 


eoossss 


eS 


py Posey ek 8 


SSSR RAR RRO MRR FEE 


2 






rr 15:S2_ PAGE 100 


07-MAR-77 CROSS REFERENCE TABLE -- USER SYMBOLS 





NO3 


D2DNG _MACY11 27(1008) O7-MAR-77 18:52 PAGE 101 PAGE: Gee 
BSO%CB. PL CMAR-?? 11:21 EROSS REFERENCE TABLE -- USER SYMBOLS 
EN2 036325 ugiSe 
ENS 6s O3E361 ugiee 
EMG ugiee 
ENS aie ugiee 
Ene ugiee 
ENDEX  OsEae8 ot 
ped 4307 4OUBs quoy YUBY 4563 
032404 4439 ie iehal 4447 Yuugy 
ENDEXS 032440 4371 «WusSe 
ERCTOO 001704 3678 
ERCTO! 001710 3708 
ERCTOS 001714 3738 . 
ERCTOS 001720 bs 
ERCTON 001764 3798 
TOS 001730 3628 
ERCTOR 001734 3658 
ERCTO? 001740 3688 
ERCT1O 001744 3c18 
Til 001750 3944 
Ti2 001764 3978 
ERCT13 001760 4008 
ERCTIN OO17E4 4038 
ERCTIS 001770 uObs 
ERCTIE 001774 uo 
ERCTI? 002000 4128 
ERR OOBBI2 5 sage 603 . 
ERRCNT 001233 T3872?" Ss«10bGK © «12808 
ERRFLG 001325 2028 483% 713% 775% 1016% 1029 1043 1101# 
100 16263 1000 «10478 
60S 1s 
ERTABO 005224 1047 «10758 
Ter DOSiED 10e;* 10668 
FLAG” O34664 10et. 1DSB" esd 1eb0%ae 1861 1880" 1885 1886  1908* 1909 192% 1930 1933 
«1934 1952 1953 19S6 7 1960 * 1976 1977 4339% 4350 4361 4369 
4334 gpe#  aaS, AGSBATW Ac. «= dddex | 4uss | eee S97 = 4BaGe «bse 4815 
FLOAT 002536 EBay = See : 
FY poses cops E94. 
HALTS 005130 1012, 10sB% 
HILIM 004274 eoSe a6 9008 
COUNT 001322 1598 7788 
1SR u3i6- 44GB 
NBUF B25 0 BEL s«11808 
NCHAR 007560 1208 «zoe 
INIFLG_ 001364 ole 809 S29 Ske 
NTR = Sta 1356 41389 «1378S MWS 
TR2 Be Bie 
1 “Bid Bees 
INTTY 011734 1385 «1M0Bes1M17,—s«A:N@3Ss«éd 2 
KMCN bie 166s 
LINITS 871 : 
toBiTs Sa ae ee 
COCK 001220 less 777% oe «1095~=S«LG7S* ©«1709* «177% «7eBe «OL794* «ee «1B7Se | «1924e 


-_- =e - - - -———e-- 
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a -77 15:S2 PAGE 1 


BO4 


CROSS REFERENCE TABLE -- USER SYMBOLS 


725 


1327 
1321 


1637 
2310 
3058 
3971 
1305 
1071 
2198% 
2934% 
3737% 
1257 


592 


1263% 


595% 


“1015% 


1042 


3185 


1268% 


2160% 
2394 
Cb4b# 
2891% 
3149% 


3428% 
3694% 


1102# 


11658 


3247 


1272 


1303 


3309 


1365 


3371 


3433 


3495 


3557 


3619 


3681 


2032% 
2759% 
3551# 


DZONG MACY11 27( 1006) 
07-MAR-77 


DZDNGB.P11 


z 
aise; semenesnens 
Rd: PEREE ERE F ERAN 


= 


O07-MAR-77 15:5 
11:21 


1306 
877 


865 
714% 


1358 


867 
715 


2 PAGE 103 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1371 


8768 
726 


1574 


1380 


883 
751 


1S84% 


CO4 


1447 


885 
1279% 


4311% 


3032 
3316 
3577 


4270 


46478 


14S6 


887 


43E9% 


3068 
3329 
3590 


46778 


783 


1644 
20093 


: 


3081 
3342 
3626 


3094 
3378 


3639 


1073 
1654 
1937 
2042 


3130 


3391 


3652 


3143 3156 
3404 3440 
3688 3701 
1320%  1330% 
1840 1842 
1942 1944 
2060 2068 


PAGE: 


3192 
3453 
3714 


0248 


-_--— - 


CROSS REFERENCE TABLE -- USER SYMBOLS 


e072 2106 e1so.s 2iS2 ss 2l63)s216S Ss 21:76 
2231 ees9 ese esce e274 ssee 2287 
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DZOMG_ MACY11 27(1006) a. -77 15:52 PAGE 104 
2371 2373 e 386 2397 2 e4e7 
8S 2498 2509 e511 2539 2541 
e611 eb2e 2624 2653 e655 2666 
2725 2736 2738 2767 2769 2780 2782 
esse 1 2883 e834 2907 
2971 3004 3006 3016 3018 3030 
3126 3128 3139 3141 3152 3154 3188 
3263 3265 3276 3278 33le 3314 
3387 3389 3400 3402 3436 3438 3449 
3513 3524 3526 3560 3573 
3648 3650 3684 3686 3697 36 3710 
774 4 4630 4692 47 4708 4716 
ROMDAT 035502 2154 2167 2180 2209 2221 2233 2263 
e 2401 2431 e444 $7 2487 2500 
2657 70 2683 2714 2727 2740 
e 2898 2911 47498 
ROMMAP 011766 lgee8 1801 00 756 4781 
RUN 001316 938 487% lebl* 1262 1269 
SAVACT OO0131e 1918 651 1545* 
VNUM 001314 1928 481% 728% 731% 1538% 
SAVPC 001276 1854 603% 623 077 
VRO 001260 1788 917% See 4915 
SAVR1 901262 179% * 626 916% 923 
SAVRe 001264 1808 91S* 924 4915 
SAVR3 001266 181% 914% 925 
SAVRY 001270 1828 913% 4915 
SAVRS 001272 1838 Slee 927 4915 
SAVSP 001274 1848 
SAVOS = 104406 ee78 1017 
SCAN 032020 43698 4462 
SCAN] O32446 4374 376 4378 44578 
SCANe 032046 4373 43758 4456 
SCOPE = 104400 2158 1697 1734 1780 1817 1863 
2e e295 2351 2407 2463 2519 2575 
2979 3038 3100 3162 3224 3348 
37 4010 4062 4108 4157 4201 
SCOP1 = 104401 2178 1690 726 1763 1776 18le 1 
2172 2185 2214 eeeb 2238 2cb8 2281 
06 2436 49 e462 2492 e505 8 
2675 2719 2732 2745 2776 
3 2916 2965 2978 3013 3025 
3161 3197 3210 32e3 3259 3e7e 3285 
) 3458 3471 3507 3520 3533 3569 
TBRO 035426 2370 aes Base |e? © 32003213 
SETBR1 035434 26 2439 e4Se 47058 
SETBRY O3544e 2482 95 2508 3311 3324 3337 47138 
SETBR7 035450 es ess1 2564 3373 3399 47218 
SETC 035456 2e' ee71 2284 3089 47298 
SETZ 035474 e314 2327 2340 3125 3138 3151 47418 
SOFT 007612 1204 12438 
SPACNT= OO046e1 943% 967 970% 9848 
STACK = 001200 64s 479 670 1072 1094 
STAT 001240 170% 


| 
BN eee 


PAGE: 


0249 


DZDMG 
DZOMGB. 


STAT1 


BB eR eoR 


WMtwre-O 
UR 


every 


TBUF 
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001366 eSee 1276% 1677 - 17i1le 1750 1797 1832 
2e0e 2ess 2311 2367 2423 2479 2535 
2938 3000 S93 3lel 3183 3245 3307 
3741 3807 19 3831 3972 3977 
78 4177 4216 4221 4260 4265 4303 
2538 1277% 
001372 eS4# 1278% 3804 974 4030 4079 4125 
1236 idee" 515% 518% 519 Se 1 33 
004310 Slee 
7556 4BOx 804 1199% 226% 12328 
107 11658 1202 
007117 116S@ 1205 
1438 499% 501 S0Ss* 515 651 656 
190 122S*% 


1060 1067 1069 1130 1 
SOS 


000176 1298 1190 1245 
1 4oe 519 1352 1558 
000002 a 701 1298 2 
000010 4ou B4b 
418 
408 
000100 398 #8 1130 
378 1067 
001000 368 791 
35% 1069 
004000 348 768 
010000 338% 806 1006 
020000 see 1011 
040000 318 
100000 308 
034674 3887 3917 3939 3982 4041 4136 4273 
0334S2 4332 4S66 4568 46158 
3888 3920 46688 
001416 e7e8 1096 1097 1138% 1143% 1149% 
7 3865*# *  3874%  3877% ¢ 4% 


001246 1738 * 1167 1570% 1571%  3897% * 
001250 1748 S4O# 1169 * 44367% 4YH49% 44460# 
S4ek 563% * 1171 1361 
2118 38S51# 3941% 4392%  44S0# 4915 
001254 1768 ube 1173 1374 1377 1383 1 
001256 177% Su4# 1175 1355  1368% 44So% 
3816% 3910 3913% 5 4325* 4336 4353 
104416 2438 
ae 148% 764 827 1234 1612 
1206 149% 766 829 92 1194 1236 
031432 1 46808 
001210 150 811 833 1008 1237 
O01ele 1518 813% 635% 1010% 1239 1617% 
004636 9968 
001226 1618 493% 1080 1108 1309 1316 1318 


761 


46698 


4915 
1364 


1450 


4915 
Woe 


1614 


1634% 


768 


1673# 


791 


1707# 


806 


3835* 
3900% 
4229% 


2115% 
1462 


174S% 


1006 


1792% 


PAGE: 


1011 


1827% 


0250 


a 
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ee Ce 


MACY11 571008) 


TSTl 015766 
TST1IO §=«© 017216 
TST11 017516 
TSTle 0Q17632 
TST13 

TST14 

TST1S Oe04e0 
TST16 020574 
TST17 020764 
Ste 016100 
TSTe0 8021154 
TSTel O21344 
TSTtee 021534 
TSTe3 021724 
TSTe4 022114 
TSTeS O22304 
TST2e& 022474 
TST27 266 

TST3 016214 
TST30 

TST31 

TST32 023434 
TST33 023630 
TST34 024010 
TST3S Oe4204 
TST3E O24400 
TST37 024574 
TST4 016336 
TST4O 024770 
TST4! 025164 
TST42 

TST43 O255S54 
ST44 025750 
TST4YS 026144 
TST46  O26340 
TST47 026534 
TSTS 016516 
TSTSO 026730 
TSTS1 027742 
TSTSe 030170 
TSTS3 030362 
TSTSY O30S44 
TSTSS 030736 
TSTS& 031114 
TSTS7 031272 
TST6 16636 
TST60 1432 
TST7 017024 
TTST 3522 
TWOSYN= 010000 
TYPDAT 005114 
TYPE = 104402 


FO4 


ca -77 15:S2 PAGE 


Bone snsaBe 


10 
2198 


1050 
$13 


106 
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1990* 2031% 2092* 2141*% 2197% 2250%  2306% 
e701* e2758% 2815% e2872e% 2933% 2995%  3054# 
3488%  3550% 3612e% 3674%  3736%  3798%  3968% 


4299% 

16348 

4680 

698% 699% 7628 

10538 

Ses 537 601 606 614 617 bys 


—--—— o — = 


2362% 
3116% 
4024# 


653 


2418% 
2178% 
4073% 


694 


C4744 
3240% 
4119% 


703 
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2520% 
3302# 
4168% 


716 


DZDMS _MACY11 27(1008) O7-MAR-77 15:52 PAGE 107 
CSOMGR.P11  O?-MAR-77 11:21 
717 #719 «+9721 «723 ~«~810 
1040 441042 «©6108 «391081 ~—Ss«1099 
1401 1404 411 1415 1424 
TYPMSG 05014 1030 10338 
VEC 006430 11658 1379 
VECMAP 011456 1546 «15588 
WHICH 011450 1367-15548 
16 Sule 974% 9828 
WRKO.F 005102 1045 10488 
WROM 62 1800 3809 +«4#43979«=403S-—Ss«4084 
XBX 706 1007 1009 iOlis 
XCNTAB 033602 u3S2 43540 isisH1BS2Ss«S 72 
XCSR OO34S6 7180s 7438 
XDNTAB 033654 y578x 4580% 464B8 
XERR 003500 72478 
XFRELD 036252 3981 4040 408 4135 4e7e2 
XHEAD 006126 537 «11658 
XMITBO O33414 4326 0 4333 4507 4613" 
S 003472 752 Ctté«7Q 
XSTAT@ 007230 SuB «11658 
XTSTN 005232 1038 ~=«10788 
XVEC 003464 720 é 
xO = OOO1I0 Wb16# 46198 46228 4625s 46288 
Xl = 000101 WBl68 46198 4228 46258 4eeBe 
x2 = 000102 ubl68 46198 46228 46258 46eBe 
X3 = 000103 uB168 46198 46228 46258 4eeB8 
x4 = 000104 uBl68 46198 # 46258 4eeBe 
XS = OO010S 168 48198 De 46258 46288 
XB = OOO106 uBl68 46198 4Scc8 4eese 4eeae 
x? = OO0107 ub168 46198 “bees & 46208 
ZERG 001300 1868 
SCOD = ##eeee U l 
SCRAP = 177777 le 16248 1627 16308 1664s 
17818 1784 17888 18188 1821 
983 19868 20208 2023 20278 
| eis 2240s 2043 2elbe 2e%G8 
| 
| SE ee MEL 
S25cn S208 3, Sars 
317 Be 35358 3538 Bebe 
37328 (37838 43786 37948 «439588 
W109e 4112 41158 41588 4ibl 
| 4289 BEQe 
|SENDAD 003432 123 46S11 «= 7358 =: 1058 
|SN = 000060 ls 1624 1630 1632 16378 
17128 1735 1741 1743 1749 
| 1825 1831 18328 1864 1869 
| 1980 1986 1988 199 19948 
| 209 20978 2130 2137 2139 
2246 2248 BP54 255" 2296 
exve 2408 eNY eHIb ee 
i 3 6S sone S30be 
| 2819 28208 2861 2868 2870 
299] $3 2999 30008 3039 
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823 
1e02 
1431 


4130 
4595 


49038 


EELEEEEE 


<= 


Bese f 


4179 
464S% 


333 
125 
1S47 


4223 


973 
1303 


4267 


4310 


46438 


47758 


raps tate tae tee pe 
SPee-Se8 


55% 
wera 
ee ay 
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1038 
1387 


0eSe 


HOH 
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S20MGB.Pil O7-MAR-77 11:21 CROSS REFERENCE TABLE -- USER SYMBOLS 
31218 3163 3174 3176 3182 31838 3225 
3300 3306 ###33078 3349 3360 3362 3368 
3473 484 893486 4803492034938 =. 3535 S46 
3616 e178 3059 3670 3672 3678 36798 
doge Ses aS SCMOMT”MGPESCGSuUi88 
4166s 4171.—ss41728 = 4202 )=Ss4208 = 2 10——s«#215 

ee ec 
rer” B93, 1835" 1823, 18Gi* 1ohy  aa45 
gegee eS gesse 2307 esils e363 e367 
ss, Be' Sue Ga" ee, Ht Gh 
3365 33698 3427 34318 3489 34938 3551 
37418 3799 38028 3969 39728 402s 4028s 
4213 4Yei6s 42S? 42608 43038 

SY = 000017 1s e078 eS 2178 2198 2218 2238 
2378 4862398 )«=s Hie = 43@ SS 

= 037410 1088 108 1128 98 «=s«dte4e—s«i1278 

2738 «= 788 )~=S ss BOs is # 38 
2938 295% 298 2978 # 3008 3018 
3i08 3118 3iee 3i38 3iSe 3168 #3178 
3264 3278 3288 3308 3l8 3328 333 
a a a ra 
i3e8" 13456)” een stkar sda 
3805 3808 #3820 3823 3826 3832 3837 
3915 3918 3921 3926 30 3933 936 
4029 «4031 «Sf ss404)=Ss«d4sC(itsié‘i 7S CBOCOC«é¥B 
4iSS ss s44173,—s417S5——i—i‘<sL 7B) 4H199—s«B17 
4263 42bRCSi“‘<ié‘ OY «= 430 Ss«41099 342 4359 
46138 4644e 464Se 47% 4o488 46518 46S2e 
46798 4836 4839 = 4 4869 

-BEGIN 003062 6708 

“CNYRT OO4400 234 9348 

“CONVR 004374 232 9338 

“DATAC O0S4S4 42 3=s-:11378 

“DELAY 005340 238 4=—s«11108 

“EOP 3274 7118 4300 

“ERRTA 037250 025 4915s 

HLT  OO4656 115 1005 

-INSTE OO4Ob2 224 8408 

-INSTR 003756 222 819% 

“INSTI 003776 Bese 843 

MSG 821% Be4e 

MSTCL 005370 236 0~=Cfs dels 

PARAM 9004192 226 @Si8 

“PFAIL 40 113 480 10858 1093 

RESOS 342 230 9228 

ROMCL 406 240 83=s_ 1 1268 

See 86 

“eee re 4 494 1222 

IMER iad 244 11488 

RPSR OO4G24 117 9938 


-— eee ee ee ee 


G2S3 
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FSEMGB.P11  OP-MAR-?? Ll:21 CROSS REFERENCE TABLE -- USER SYMBOLS 
.TRPTA 901330 2i4e =: $98 

“TYPE =. BBE 74 220 gol 


JO4 


a 15:S2 PAGE 111 PAGE: OG2ss 


DZO0MG § MACY11 27(1006 
CROSS REFERENCE TABLE -- MACRO NAMES 


) 
DZOMGB.P1: 07-MAR-77 


: 
BS 


{ 
{ 
' 
OMEND ls 705 
DMF RNT le 
“of Hoe uP oe ue ue om ee ee mt Re Re Re 
2405 i 5 44 ata sai se 4 Baty 5eRs 560 c7 604 2617 2630 2661 
2674 7 2718 2731 2744 7 788 801 2832 284 658 2889 29 2915 2951 
4 977 3012 3024 30 3072 098 3134 314 160 3 320 3222 3258 
71 eB4 3333 3382 3395 3408 3444 3457 3470 35 3519 3568 
358 94 3630 364 56 6 3705 3718 3754 3767 780 3829 3840 3853 cs 
387 3879 | 9 3907 39le 3916 3919 3922 3927 393 4 3937 3946 
3951 3993 3997 4005 4051 4055 4061 4097 4101 4107 4146 1S0 4156 4] 4 
4234 4238 4o44 4284 4396 4453 4463 4561 4570 4577 4593 4600 
SAUTO ls S49 
SBRRSH le 1624 
SBUFFE ls 1177 
SBYTE le 4616 4619 4622 4625 4628 4631 4E34 4637 4640 
SCKDAT le 4379 
SCOMP le 
SCRAM le 1664 1698 
SCRAMD le 1735 
SCYCLE ls 1246 
SDATAF le 3783 
SEOP le 705 
SEXER le 4286 
SFD le 3857 4851 
SFINI le 4680 
SGETPA ls 
SHALF le 4246 
SHD le 4881 
ACE ls 
Hired is ee 7 240 2 35 40 2464 S20 2576 2633 2690 2747 2804 2861 
2918 shah 5485 101 at 5336 SoBe 3349 411 3473 3535 3597 3659 3721 
SLSTDA le 4014 
feet IE ase er 
SMEMO le 1864 
SMEM1 le 1818 
SMEMe le 1912 
SMEM3 ls 1980 
SMOCK ls 
SNONeX ta HOES. u09 
SORUN ls 3958 
SPFAIL ls 1081 
SPROC le 4158 
erred le 4202 
SGUES ls 1356 1369 1378 1445S 14S4 
ee le 1103 
CLK le 111 
j 
{ 


Hr 
St 
Sa 
ruru 
Se 
ruru 
28 
ar 
ory 
Bases 
for 
#3 
ca 
me 
os 
opr 
a 
é% 
zo 


Hi 
Fs) 
Be 
2 
is 
if 
o 
A} 
z 
e 
é 
2 
o 
ae 
: 
: 
8 
Hi} 


KO4 
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DZOMGB.P11 O7-MAR-77 11:21 CROSS REFERENCE TABLE -- MACRO NAMES 


e736 «= 2738S e767 2769 27800 e782 )Sse793s—s279Sss 28244 


3201 3203 4 4321 2 263 3265 
343-3508 3374 33, 384 5B : 34 fs 
3511 3524 26 ee 
3648 3650 4 6.53686 Ss 3897S 3699) ss710 ss 71BSsCB7HE 
90 4692 4700 4708 4716 4724 4732 4734 «= 736 
SRDROM le 1781 
SRONRO is 2081 
SSC is 755 
Su : 3972 4028 4077 4123 
SSKIPT is 3802 3972 4028 4077 4123 #4172 4216 4260 
SSOFTC les 1185 
ST aft 2182721 ae 22 BF 
STSTN aang” S38 RTE OSCARS ORGS 
5176 3238 +«©=- 3300 3 54 5eug ee 
Wie «= 4210S s«sBSH Ss? 
» a is 1654 1630 1664 ««69Ss«dd9BSSC«A703.—«—«73S~=St—«sML 
: 912 1818 15801986 2620 eer e081 e088 2130 
en? ere Pane Sali ; 9 $318 3411 $386 
co 3 SS 3964 4019 
yied «= 4202—Ss«s«woStCDUE W286 «4295 
. ABS. 037410. 000 
ERRORS DETEC 


TED: 0 
| DEFAULT GLOBALS GENERATED: 0 


DZDMGB, DZDMGB. SEQ/SOL/CRF /NL: TOC+IPLUTL, DZDMGB 
RUN- TTA 16 22 1 SECONDS 





